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by Clayton Walnum 

It's now been over seven years since the 
first copy of ANALOG Computing hit 
the stands. Over that period of time, 
Atari has had its ups and downs, and 
through it all, ANALOG has been there 
to provide its readers with the information 
they needed to get the most from their com- 
puters. But after seven years of publishing, 
it gets very tough to come up with new topics 
for discussion. Even though the Atari 8-bit 
computers have had a couple of face-lifts over 
the years, they are still essentially the same 
machines they were when they were first 
released. There is simply nothing new that 
can be said about them. (We would be 
delighted if someone out there could send us 
an article to prove us wrong. That's a 
challenge!) 

It occurred to me that there are a great 
number of new ANALOG Computing read- 
ers—readers that are experiencing Atari com- 
puters for the first time. And these new 
readers have a need for much of the infor- 
mation we Atari veterans consider "old hat." 
After all, it has been years since topics such 
as player/missile graphics, display lists, page 
flipping and modified character sets have 
been covered at a level that the novice 



programmer could understand. Should we, 
perhaps, cover these topics again? Write to 
us and let us know! 

I've always envisioned ANALOG'S growth 
as a long line that projected from the past into 
the future. But with recent developments (or 
should I say lack of developments) it appears 
to me that maybe ANALOG should start 
coming full circle, should start providing 
some of the information that new owners have 
missed. 

One thing that people are constantly ask- 
ing for is reprints of the early Boot Camp 
columns. This assembly-language tutorial 
started way back in Issue 13, and is without 
a doubt the finest series of tutorials of its type 
ever written. (I can say that without boast- 
ing because back then, I was an ANALOG 
Computing reader just like you, not involved 
editorially at all. Boot Camp was one of 
ANALOG'S features that I most looked for- 
ward to each month.) With this issue, Karl 
Wiegers, our current Boot Camp author, is 
retiring his position. And since most every 
assembly-language topic has been covered 
anyway, we have to make a decision. Do we 
drop Boot Camp from our table of contents? 
Or do we try to replace it? 

My suggestion to the publisher was that we 



dig all the way back to Issue 13 and start 
reprinting the column. First of all, most of 
those early issues are out of print, so the ini- 
tial Boot Camp columns are completely un- 
available to our readers. Secondly, there is 
no one I know who can cover the topic bet- 
ter than Tom Hudson, so I don't see any point 
in having someone rewrite what has already 
been covered splendidly. 

The bottom line is that it's up to you, the 
readers. Drop us a line and let us know if 
you'd like to see the early Boot Camp arti- 
cles reprinted. Drop us a line if you don't 
want to see them reprinted. We'll tally the 
votes and come to a decision based on what 
you want. 

And speaking of making decisions, please 
take a look at the short survey we've includ- 
ed in this issue. We hope that most of you 
will take the time to check off your responses 
and mail it in. If ANALOG is to continue 
to grow, we have to know what you want. 
Thanks. 

Responses to this editorial should be 
mailed to: 

ANALOG Computing 

Reader Comment 

RO. Box 1413-M.O. 

Manchester, CT 06040-1413 
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READER 
COMMENT 



From the 
Starting Line 



After looking through a recent issue of 
ANALOG Computing, I decided to buy it. 
When I got it home and looked through it 
some more, I ordered a subscription. 

I like Robin Sherer's Master Memory Map. 
I also like Craig Patchett's column, Game De- 
sign Workshop. I don't think, however, that 
Craig should assume that I "already know the 
basic techniques involved in player/missile 
graphics, redefining the character set, display 
lists, and so forth." I don't. 

In fact, that was one of the reasons tor my 
not buying your magazine sooner. The arti- 
cles in past ANALOG magazines assumed 
that there weren't any beginners out here, 
only advanced computer wizards. I purchased 
this magazine and ordered a subscription be- 
cause it now looks like some help for begin- 
ners is going to be offered in your magazine 
in the coming months. 

Until I purchase a MAC/65 assembler or 
an Action! cartridge, I hope to see more BA- 
SIC programs in your magazine. As the above 
products are expensive, it may be some time 
before I can get them all. 

I hope you will continue to support begin- 
ners, as well as computer wizards. I can al- 
ways cancel my subscription if you don't. 
—Michael Pascarelli 
Port Richey, FL 

Thanks for your subscription, Michael, and 
we hope that you will find the infonnation you 
need infiiture issues o/ ANALOG. Yes, Game 
Design Workshop is slanted toward people 
with some programming experience, although 
we believe that the information Craig has 
been presenting each month is complete 
enough to teach you the basics involved in 
writing a game, even if you haven 't encoun- 
tered some of the techniques before. However, 
GDW is not a tutorial in BASIC program- 
ming. You must be familiar with BASIC to un- 



derstand the concepts presented. 

One of the stumbling blocks of putting out 
a magazine like ANALOG /or 50 marty years 
is that you run out of topics. I doubt there 
is a single feature of the Atari 8-bit computers 
that hasn 't been covered in depth sometime 
in the pages of ANALOG. Such basic 
programming techniques as redefining 
character sets, modifying display lists, per- 
forming page flipping and accessing play- 
er/missile graphics have all been covered in 
the past. However, we realize that there are 
a lot of new Atari owners out there who 
haven 't yet explored the potentials of their 
machines. In recognition of this fact, we are 
perfectly willing— if there are enough people 
interested— to cover these topics again. 

So we must ask a favor of all our readers. 
Please fill out the short questionnaire found 
in this issue so that we can accurately assess 
the direction that we should take ANALOG 
in the future. This is your chance to tell us 
how you feel about the current ANALOG and 
what, if anything, we should do to change it. 
Please take a couple of moments to respond. 
Thanks. 



New Address 
for Abacus 



Thank you very much for mentioning Aba- 
cus in your August '88 issue of ANALOG 
Computing in the "ST Notes" column. 
However, Abacus, a leading publisher of ST 
products, has a new address. It is 5370 52nd 
Street SE, Grand Rapids, MI 49508. Phone: 
(616) 698-0330. -Jim Oldfield, Jr. 

Director of Marketing, Abacus 



Another New 
Address 



Omega Soft bought Clearstar Softechnol- 
ogies in January of last year, and the new ad- 
dress for Clearstar is P.O. Box 140, Harrells, 
NC 28444. Current products are Lightspeed 
C ($39.95), The Elite Personal Accountant 
($39.95), Classy Chassy ($9.95) and Time 
Bomb ($9.95). Shipping and handling not in- 
cluded. —John G. Mott 
President, Omega Soft 



Math^s Finer 
Points 



Is there something about the Mandelbrot 
set that turns the mind to mush? 

Actually, James Greco's article (September 
'88) is in many ways an admirable effort. He 
handles real and imaginary numbers and 
squaring complex numbers very well. His ex- 
planation of where the different colors come 
from in plotting the environs of the Mandel- 
brot set is really fine. 

The problem arises from an incorrect for- 
mula for the function that generates the Man- 
delbrot set. The formula, given twice on page 
20, should be Z< -Z'2-MJ. (The square 
was on the wrong Z in the article.) This no- 
tation is analogous to the BASIC line LET 
Z=Z"2-I-U. It means "replace Z by its cur- 
rent value squared plus U." 

The only trouble is that Z and U are sup- 
posed to be complex numbers and BASIC 
doesn't do complex-number arithmetic on 
its own. However, if you follow Greco's ex- 
planation (page 19), you will see how to 
square a complex number using high-school 
algebra. Here is the general formula: 
(a-l-bi)"2=a"2-b"2+2abi, where / is the fa- 
mous square root of -1. In the program, the 
squaring and adding operations are carried 
out in Line 20. And in spite of the error in 
the article, the program does the calculation 
exactly right. 

But here is the key point that is missed be- 
cause of the notation mistake: What makes 
the Mandelbrot set so complex is that it is 
not a pure squaring operation. If you square 
a number, take the result and square it again, 
and so on, and plot the results the way it is 
done in plotting the Mandelbrot set, you get 
a far simpler looking graph. (I think it would 
be a series of concentric colored rings enclos- 
ing a black disk, themselves surrounded by 
a monochrome background.) The immense 
complexity comes from combining squaring 
and adding. —Jerry Bridgman 

Madison, WI 




Line 1070 of "Joytype" (September '88) 
should have a semicolon between X$ and the 
full colon. The omission will not cause an 
error, but the extra semicolon allows the text 
files to be read by spelling checkers and other 
word processors. —John Pilge 

Soquel, CA 
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Celebrity Cookbook 
is a Winner 



Merrill Ward and Associates' home- 
catering program, Vie Celebrity 
Cookbook, Vol. 1, was awarded the 
prestigious Innovations. 88 
computer-software award by the 
National Consumer Electronics Association. 
Now hot on the heels of that award, Merrill 
Ward has announced version 2 of The 
Celebrity Cookbook. 

Version 2 adds a lot more color and speed 
to the original program. Because the program 
is written in the innovative GOE (Graphics 



Operating Environment), it can take advan- 
tage of an ST mouse, as well as a joystick, 
track ball or the keyboard. Version 2 will al- 
low you not only to calculate the serving size 
of your recipes, but also the cost. The new 
version sells for $29.95. 

Merrill Ward & Associates 

255 North El Cielo Road, Suite 222 

Palm Springs, CA 92262 

(619) 328-8728 

CIRCLE #159 ON READER SERVICE CARD. 



SynFile+ Utilities 



Donald R. Seay has just released SFP, 
a group of utility programs for users 
of SynFile+. SFP adds a number of 
functions not available within 
SynFile-l- itself, including: 

* Print, write to a file, or display on the 
screen the structure of a SynFile-l- file. 

■k Alter the values associated with record 
number and counter fields. 

* Add, change or delete values in look-up 
tables. 

* Change true/false texts for conditional 
items. 



• Recover deleted files. 

* Change the justification of any data item. 
•k Create, save and produce reports in either 
list or label format. 

SFP will run on a 48K Atari with BASIC 
and is priced at a reasonable $19.95 (plus $2 
shipping). 

SFP 

4 Forest Drive 
Palmyra, VA 22963-2118 

CIRCLE #160 ON READER SERVICE CARD. 



Virus Perpetrator Convicted 

Donald Burleson, an ex-employee of 
USPA and IRA Co., an insurance 
and brokerage firm in Fort Worth, 
Texas, recently discovered that the 
courts of our land will no longer 
tolerate the spread of computer viruses. 
Burleson was convicted of computer sabotage 
after he planted a computer virus that wiped 
out 168,000 payroll records on USPA's com- 
puters two days after he was fired from his 
job. David McCown, the prosecutor, believes 
he is the first lawyer to get a conviction in 
a computer virus case. Burleson faces up to 
ten years in prison and up to $5,000 in fines. 



Omega Soft Buys 
Lightspeed C 

Lightspeed C, the popular C program- 
development language for the 8-bit 
computers is no longer being sold by 
Clearstar Softechnologies. Omega 
Soft, a company that distributes 
several products for the 8-bit Atari computer, 
has purchased the rights to sell Lightspeed 
C exclusively. C is quickly becoming the lan- 
guage of choice of many programmers, and 
Lightspeed C has been hailed as an excep- 
tional alternative to assembly language on the 
8-bit Atari. Its price is $39.95. 

Other products available through Omega 
Soft include the AL/65 Development System 
(a linker-based assembler) and DISKIO (a 
complete disk utility package). 

Omega Soft 
RO. Box 139 

Harrells, NC 28444 
(919) 532-2359 

CIRCLE #101 ON READER SERVICE CARD. 
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Atari XF551 
Disk Drive 

Atari Corp. 
1196 Borregas 
Sunnyvale, CA 94806 
(408) 745-2000 
$299 



Reviewed by iVIattliew J.W. Ratcliff 



The Atari XF551 disk-drive is one of 
the most innovative and confusing 
products released for the 8-bit com- 
puter line in quite some time. It was 
produced to take the place of the dis- 
continued Atari 1050 disk-drive, and since its 
release, a controversy has raged, with some 
people condemning the XF551 while others 
praise it. 

The first things you will notice about the 
XF551 is that it is shorter and wider than the 
1050, incredibly quiet (and with no power 
light, you can't tell if it's on or off without 
attempting to access it), and comes with the 
same old Atari DOS 2.5. This last point has 
generated mass confusion and still does, 
many months after its release. 

The Atari XF551 is a double-sided, double- 
density disk-drive, making it capable of stor- 
ing a full 360K per disk, smashing the 130K 
barrier imposed on the 1050's double densi- 
ty mechanism with "enhanced" or "dual" 
density. The confusion stems from the fact 
that Atari DOS 2.5 can only handle single- 
sided, single- (88K) or enhanced-density 
(128K) disks. Since it comes only with DOS 
2.5, people assume it is merely a clone of the 
1050 drive in a new case. The XF551 is in 
tact capable of handling 360K disks with the 
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right DOS, namely DOS-XE (formerly A- 
DOS), from Atari. This product was devel- 
oped by Optimized Systems Software (now 
owned by ICD) and completed ages ago, but 
it still has not been released because of "de- 
lays in printing the manual," according to 
Atari sources. 

The story behind "the new drive with an 
ancient DOS" is that Atari was sued by Nin- 
tendo over its XEGS. Nintendo disputed 
Atari's claim in the XEGS advertisements that 
you can attach a disk-drive and use it as a 
real computer. This is true, but Atari had no 
disk-drives for six months or more. Appar- 
ently, when the suit was filed. Atari decided 
to ship the XF551 with the old DOS 2.5, since 
DOS-XE (or the manual for it) was not com- 
plete. The suit was dropped, and we finally 
got new disk-drives. The problem is that you 
will waste over 200K of disk space on each 
and every floppy if you are still using the old 
Atari DOS! 

"Wait a minute. I can just flip the disks and 
format the bottom side." Is that what you 
were thinking? It won't work. The XF551 
uses a timing light at format time only. When 
you flip your floppy, the timing hole is on the 
wrong side. The XF551 doesn't see the tim- 
ing pulses from the timing hole and refuses 



to format the flip side of the disk. This may 
seem rather bizarre when you realize that the 
disk-drive does not use the timing hole at any 
other time. When the disk is formatted, tim- 
ing is written on the disk. The timing hole 
is used for nothing but the prevention of for- 
matting the flip side of a disk. 

This limitation is quite logical when you 
think about it, however. If you have been us- 
ing an 810 or 1050 disk-drive, you have prob- 
ably been formatting the flip side of your 
floppies for years. Suddenly you start using 
double-sided, double-density, 360K disks. 
(Atari assumed you would have a DOS that 
could do that, of course.) Wouldn't it spoil 
your day if you inadvertently formatted the 
flip side of a full 360K diskette? This is where 
the timing light prevents you from making a 
serious mistake. 

To get the most out of the XF551, while 
waiting for DOS-XE, you can employ MY- 
DOS 4.0 or SpartaDOS (or the hot new SDX 
cartridge). These DOSes fully support the 
XF551. SDX, SpartaDOS in a cartridge, even 
supports a high-speed disk mode of the 
XF551, similar to their US Doubler modifi- 
cation for the 1050 disk-drive. (The high- 
speed mode is a standard, built-in feature of 
continued on page 40 




RIAL 
BY FIRE 



by Greg Knauss 

The life of a fireman is tough. Tough 
like leather, tough like steel, tough like 
an elementary school teacher, tough 
like reading all these cliched similes. 
/ am tough. And I am a fireman. 
I'd tried my hand at various professions 
other than fire fighting, sure, but none of 
them seemed to work out. Creative account- 
ing, cat burglary, advising the President; I got 
caught-in at all of them. Eventually, I ended 
up being a fireman. I never intended to be 
a hero. 

Oh, I suppose it comes with the territory 
though. Firemen go through life and death 
situations every day, and most people never 
hear of it. Usually, if someone is pulled from 
a burning building, they'll never find out who 
did it— just a faceless, nameless person in a 
funny-looking red hat and a tank of air. Not 
that it's fame that firemen are after— we fight 
fires to save lives and help people, not to get 
famous— but somedmes a fire has a little bi- 
zarre twist that gets it in the newspapers. And 
sometimes, you're involved. 

There was a fire like that a little while back 
in a nursery. Dozens, maybe hundreds, of ba- 
bies trapped at the top story of a burning 
building. The stairs were gone, the flames 
were too big to get a ladder past, and the roof 
was way too small to land a helicopter on. 
We had one alternative left: the net. The net 
is what we use to catch people who have to 
jump from burning buildings. Unfortunate- 
ly, some idiot had strung it way too tight. It 
was more a trampoline than a net. This was 
going to be a circus— in more ways than one. 
None of us wanted to use it, but we had noth- 
ing else. 
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Me and a young kid— Tom somebody- 
grabbed the net and ran to the foot of the 
building. "Goo goo da-do!" he yelled. Later 
he insisted that that was baby-talk for "jump." 

The first baby who jumped tumbled down 
toward us, hit the net, and went right back 
up. It was amazing. We stood there gape- 
mouthed for a second before realizing that the 
baby had not bounced straight back up. He 
had drifted away from the building a little and 
was going to hit the ground unless we moved. 

We moved. Fast. 

Up he went again. And we moved again. 

After his third bounce, when we were get- 
ting worried whether he was ever going to 
come down, he landed right inside an am- 
bulance that was parked nearby. Softly. As 
safe and as happy as he could be. 

Babies are supposed to have an innate fear 
of falling, but this kid seemed to love it. 
Someone had to hold him down because he 
tried to crawl back into the building to do it 
again. 

Another jumped, and we rushed back to 
the building. 

Up he went, again, and again, and again. 
It was going to be a long day. 

Like I said, firemen are tough. 

Typing It In 

To make your copy of Trial by Fire, drop 
the Action! cartridge into the computer and 
threaten to beat up your little brother until 
he types in Listing 1. As a word of advice, 
the long lists of numbers are much more 
easily entered if you have a friend read 
them to you whilst you type. 

continued on page 44 



The net is what we 
use to catch people 
who have to jump 
from burning 
buildings. 

Unfortunately, some 
idiot had strung it 
way too tight. 






by Jackson Beebe 

Have you ever admired the colored 
text and screens in other people's 
programs and wished you could add 
them to your own BASIC programs? 
Have you given up trying to figure 
out Atari SETCOLOR statements and their 
relationship to POKE statements? Have you 
spent hours trying to design screens by 
POKEing in one number after another, writ- 
ing small notes on the backs of envelopes 
with a pencil that kept getting lost, only to 
be dissatisfied with the results at the end? 
If you answered "Yes" to any of the above, 
then Color Set is the program for you. Color 



Set allows you to change the color and inten- 
sity of the screen, border or text using the 
arrow keys. The correct SETCOLOR and 
POKE statements to produce these colors are 
constandy updated and displayed on the 
screen. Experimenting and watching the 
results soon gives you a working knowledge 
of the color statements. 

Color Set will run on any Atari 8-bit com- 
puter. It will produce a printed record of 
screens you compose or will allow you to jot 
down settings shown on the screen. To quit 
the program, hit BREAK, and then clear the 
screen. 



us« L,5,B keys to select itcH 

ITEM COLOR IHTEN. 5ETT1MG 



LETTERS 


1 It *i 


SETCOLOR 1,8,14 1 


1 POKE 789,14 1 


^■l SHREEM ■ 


la ala ol 


SETCOLOR 2,8,8 1 






1 POKE 710,8 1 


BORDER 


U*U*\ 


SETCOLOR 4,7,4 ) 


1 POKE 712,116 1 


1 Push P 


to PRINT 


these settinas 1 


i 


^^^^^K^ __ji^^m^M 
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Graphics Modes 

The Atari 800XL has 16 graphics modes, 
numbered 0-15. Each mode has its own reso- 
lution, number of lines, number of charac- 
ters per line, and number of colors available. 
When you turn on Atari 8-bit computers, they 
come up in Graphics 0, their default mode. 
This mode is a text mode (like 1-2) as op- 
posed to a graphics mode (like 3-15). This 
is the mode you use when you work in BA- 
SIC or with most text-oriented or utility func- 
tions. It has 40 characters per line, 24 lines 
per screen, and 16 colors of background or 
border, each with eight levels of intensity, 
ranging from dark to bright. The text will be 
the same color as the screen background, but 
vary in intensity against the screen. When the 
screen and text color are the same intensity, 
the text is invisible. 

SEKOLOR Statements 

The intensity of the text, the color and in- 
tensity of the screen, and the color and in- 
tensity of the border are controlled in 
Graphics by three SETCOLOR statements. 

SETCOLOR 1,0,Y = Text intensity 

Y can be any even number from 0-14, to 
change text from dark to bright. 

SETCOLOR 2,X,Y = Screen color and in- 
tensity 

X can vary from to 15 to change the color 
of the screen and text, and Y can be any even 
number from 0-14, to change intensity of 
screen color from dark to bright. 

SETCOLOR 4,X,Y = Border color and in- 
tensity 

X and Y are the same as when setting the 
screen colors. 
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The first digit in the SETCOLOR statement 
specifies that text, screen or border are to be 
changed. This digit (in Graphics 0) may have 
a value of 1, 2, or 4 only. The second digit 
specifies color, and may vary from 0-15. This 
holds true for both screen and border. Colors 
selected by the second digit are as follows: 






= Gray 


8 


= Blue 


I 


= Gold 


9 


= Light Blue 


2 


= Orange 


10 


= Turquoise 


3 


= Red-Orange 


11 


= Green-Blue 


4 


= Pink 


12 


= Green 


5 


= Pink-Purple 


13 


= Yellow-Green 


6 


= Purple-Blue 


14 


= Orange-Green 


7 


= Dark Blue 


15 


= Light Orange 



Note that in the SETCOLOR 1,X,Y state- 
ment, the digit X has no effect on the text. 



This is because the text color is always the 
same as the screen color. You may type num- 
bers in if you wish, but the program always 
ignores the second digit in SETCOLOR 
LX,Y. For this reason, I have used zero as 
the second digit in my program and exam- 
ples. This will satisfy the BASIC interpreter 
which needs a digit in that location and will 
remind you not to bother worrying about it 
for text. 

The third digit controls the intensity of the 
text, screen or border, and may be any even 
number from 0-14. Intensities are roughly: 
0-2 = Dark 
4-8 = Medium 
10-14 = Bright 

For example, SETCOLOR 1,0,14, SET- 



COLOR 2,0,0 and SETCOLOR 4,7,4 
selects bright white text on a black screen 
with a dark blue border SETCOLOR 1,0, 14, 
SETCOLOR 2,3,4 and SETCOLOR 4,7,2 
selects white text on a red-orange screen with 
a dark blue border SETCOLOR 1, 0, 8, SET- 
COLOR 2, 12, and SETCOLOR 4, 3, 6 will 
produce green text on a black background 
with a red border. 

POKE Statements 

There are corresponding POKE statements 
that achieve the same results as the SET- 
COLOR statements. Once you figure them 
out, they are easier and quicker to use than 
SETCOLOR. Their locations are: 

POKE 709 = Text intensity (0-14) 

co7itinued on page 41 



BUY'SELL^TRADE 



BUY-SELL-TPADE 



Compute!^ 



BUY'SELL'TRADE 



Atari i040ST 




$449 



with trade-In of 130XE, 1702 Mon., NP-10, 1200 modem 
$CALL for your system 



Atari 65XE 




$85 

NEW 



with trade-In of 800XL OR 800-48K 
$CALL for your system 



Bep eaii 



All rvfergncw to tndtt-ina utums equipment to be In good 
working condition. Shlppino/handllng will be added to fill 
pricH. Ho addltJonal chirj)B for credit cirdi or COD. Mall order 
pdce* ihown. 

WECHECK FOR CREDfTCAflDTHEFTI 



Used 

520ST Computer $335 1040ST Computer (585 

Atari SF354 Drive $69 esXE Computer $85 

Atari 800-48K $59 800XL Computer $69 

Hayes Smartmodem $49 Alaril 030 Modem $35 

1050 Drive $139 Atari 1025 Printer $79 

Allen Group Voicebox $39 OkimalelOw/PIP $99 

ATIU000 64K, Slaves $199 Slave Drives from $35 

ICD PRiConnectlon $49 OllveltlPR2300prn $119 

C1802C Monitor $155 SoltwareyBooks from $1 

New 

1040STPIU8+CPU $719 520ST(^CPU $499 

Atari SF314 Drive $209 Indus GT-IOO Drive $209 

Atari 130XE Compuler$149 SM124 Mono Mon $159 



USDoublerw/DOS 
$C1224 Color Mon 
Atari SX-212 Modem 



$39 
$325 



XI^SSI Drive 
Avalci 1200eHC 
Modem cable 



$179 
$70 

$15 



Avatei 2400HC $199 

Star NX-2400 24 Rn $389 
Star NX-1000 144cps $189 



1802D Monitor $189 
Microllne 183 wide $315 
Epyx500XJJoysticJt $19 



$Cash for your equipment 

Thousands of software & booktitles 

Plus, MUCH, MUCH MOREI 

Technical Support/Questions: 1-303-939-8144 



Atari XFSsi 




$49 

NEW 



with trade-in of130XE, 1050 OR $109 with 1050 
$CALL for your system 



Atari 520ST fm 

with Double Sided Drive 




$239 

NEW 



with trade-in of 130XE, 1050, 650, 1200 mdm., color mon. 
$CALl for your system 



lecnnicaioupporuuuesLions: i-.}uj-9ov-oi4^ ,^^ 

1 -800-347-3457 C^ 



Authorized Sales & Service for 
COMMODORE/AMIGA 
and ATARI ^ 



CompineTsand 



ST/XUXE , 
Accessories. 



A 



VISA MASTERCARD DISCOVER AMERICAN EXPRESS COD 



CIRCLE #113 ON READER SERVICE CARD. 



FEBRUARY A.IM.A.L.O.G. Computing 



13 



c 



Since 1981 



Lyco Computer 

Marketing & Consultants 



Air orders processed within 24 hours. 



Lyco Means Total Service. 




Mark "Mac" Bowser, Sales Manager 



I would personally like lo Ihank all of our past customers for helping to make 
Lyco Computer one of the largest mail order companies and a leader in the 
industry Also. I would like to extend my personal invitation lo all computer en- 
thusiasts who have not experienced the services that we provide. Please call 
our trained sales staff at our toll-free number to inquire atjout our diverse 
product line and weekly specials. 

First and foremost our philosophy is lo keep abreast of the changing market 
so that we can provide you with not only factory-fresh merchandise but also 
the newest models offered by the manufacturers at the absolute best possible 
prices. We offer the widest selection of computer hardware, software and ac- 
cessories. 

Feel free to call Lyco if you want to know more about a particular item. I can't 
stress enough that our toll-free number is not just for orders. Many companies 
have a toll-free number for ordering, but if you just want lo ask a question 
about a product, you have to make a toll call. Not at Lyco. Our trained sales 
staff is knowledgable about all the products we stock and is happy to answer 
any questions you may have. We will do our best lo make sure that the 
product you select will fit your applicalion. We also have Saturday hours - one 
more reason to call us for all your computer needs. 

Once you've placed your order with Lyco. we don't forget about you. Our 
friendly, professional customer service representatives will find answers to 
your questions about the status of an order, warranties, product availability, or 
prices. 

Lyco Computer stocks a multimlllion dollar inventory of factory-fresh merchan- 
dise. Chances are we have exactly what you want right in our warehouse. And 
that means you'll gel it fast. In fact, orders are normally shipped within 24 
hours. Free shipping on prepaid orders over $50, and there is no deposil re- 
quired on COD. orders. Air freight or UPS Blue/Red Label shipping is availa- 
ble, too. And all products carry the full manufacturer's warranties. 
I can't see why anyone would shop anywhere else. Selection from our huge 
inventory best price, service that can't be beat — we've got it all here at Lyco 
Computer 

TO ORDER, CALL TOLL-FREE: 1-800-233-8760 
New PA Wats: 1-800-233-8760 

Outside Continental US Call: 1-717-494-1030 

Hours: Monday through Friday, 9:00 a.m. to 9:00 p.m. 
Saturday, 10:00 a.m. to 6:00 p.m. 
, For Customer Service, call 1-717-494-1670, 



9AM to 5PM, Mon. - Fri. 
l^-^ — I Or write: Lyco Computer, Inc. 

P.O. Box 5088, Jersey Shore, PA 17740 

PLEASE NOTE: • full manufacturers' warranties • no sales tax 
outside PA • prices show 4% cash discount; add 4% for credit cards • 
APO, FPO, international; add $5 plus 3% for priority •4-week clearance 
on non-certified checks • we check for credit card theft • sorry, com- 
patibility not guaranteed • return authorization required • due to new 
product guarantee, return restrictions apply • price/availability subject to 
change • prepaid orders under $50 in Conlinental US, add $3.00. 



MAGNAVOX 



CM-8502 

• Composite 
Color 

• Green Text 
Switch 

• Speaker 

• Suggested 
Use 130 XE 



^:^ 



ATARI HARD DISK 

Super Speed 

Super Performance 

• 20 Megabyte Drive 

• Improves ST (h C fi Q 95 

Performance ^ra ^1 fj J^ 

• Includes Hard Disk 
Utilities 



$179 



95 




Indus 



GTS-100 t;^ 

• Atari ST 
Drive 

• 3.5" DSDD 



$195 



95 




AATARr 

Cartridge Software 
3 for $9.95 

CALL FOR 
TITLES! 



SupraModlemr 

2400 




epyx. 



500 XJ 



• fully compalible 
with industry- 
standard, intelligent' 
'AT" commands 

• Compact size 

• Tvear warranty 



$12995 




$1395 



C 



£. 



8088 XT 



• 6*0K HAM 



• Mum I'O (irKilixtes 1 Suoal 
Port. I Game Pon. Clock 
Calsnda;. D<sh ControllM 
(Of Two 360K'a) 

• (6) Eight ExpAnsion VO 
Slou 



• 101 KeyKeytjoard 

• 1 50 Wall Pow« Supply 

• One Your Wananty on Parts 
& Labor 





f 
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HeadStart 



COLOR SYSTEM 

• plug in and use im- 
mediately 

• IBM-XT compatible 

• 2-360K Drives 

• Free 1 -year limited 



$529 



95 



warranty 



$969 



95 




Hi Res color monitor included! 



l-800-255>8760 
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NX1000 




10801 Model II 



Panasonic^ 

Office Automalioaj;'^ v£ji 



OKIDATA 



Okimate 20 



$169 



95 



'w/cable purchase 

144Cps Draft 

36 Cps NLO 

EZ Soft Toucfi Selection 

Paper Parking 

Epson Sid. & IBM Proprinter 





$149 



95' 



C^rnnalible 

NX-1000 $169.95- 

NX-15 $289.95 

NX-1000 Color $225.95 

NR-15 $419.95 

NB-15 24 Pin $669.95 

NX-2400 $309.95 

NB24-10 24 Pin $369.95 



150 Cps Draft 

Friction & Tractor Feed Sid. 
Bidirectional & Logic 
Seel<ing 
I NLQ in all Pilches 

'Quantities limited 



• Color Printer 

• 80 cps Draft 

• 40 cps NLQ 



$129 



95 



1080i Model II $149.95' 

10911 Model II $195.95- 

10921 $309.95 

1592 $375.95 

1595 $439.96 

1124 $319.95 

'quantities limited 



Okimate 20 $129.95 

Okimate 20 w/cart $189.95 

180 $219.95 

182 $209.95 

182+ $225.95 

183 $239.95 



PRINTERS 



Citizen 

120 D $144.95 

180 D $159.95 

MSP-40 $279.95 

MSP-15E $309.95 

MSP-50 $369.95 

MSP-45 $349.95 

MSP-55 $469.96 



AATARI 



Access: 

Triple Pack $11.95 

Leader Board Double 

Pack $9.99 

Actlvlsion; 

Music Studio $19.95 

Great American Road 
Race 



Selkosha 

SP 12C0AS RS232 ... $179.95 

SLBOAi $329.95 

MP54irOFA $999.95 

SP Series Ribbon $7.95 

SK3000 Ai $349.95 

SK3005 Ai $445.95 

SPB 10 $CALL 

SL 130AI $599.95 

SP 1600Ai $CALL 




Attention 
Educational 
Institutions: 

,f you are not currently using 

our educational service 

program, please call our 

representatives for details. 



Epson 

LX800 $184.95 

FX850 $339.95 

FX1050 $499.95 

EX800 $43^.95 

LQ500 $339.95 

GQ3500 $LOW 

LQ850 $525.95 

LQ1050 $749.95 

INTERFACING AVAILABLE 



Brother 

M1109 $189.95 

M1509 $335.95 

M1709 $439.95 

Twinwriter 6 Dot & 

Daisy $899.95 



j[j^^^ ^^^^ 



$9.99 
aroderbund: 

Print Shop $26.95 

Graphic Lib. 1,11 or III... ea. $14.95 

Electronic Arts: 

Pinball Con. Set $8.95 

One on One $8.95 

Lords of Conquest $8.95 

Super Boulderdash $8.95 

Music Construction 

Set $8.95 



Access: 

10th Frame $22.95 

Actlvislon: 

Music Studio $27.95 

Broderbund: 

Superbike Cfiallenge ... $11.95 

Typhoon Thompson .... $21.95 

Electronic Arts: 

Hunt lor Red October .. $32.95 

Awesome Arcade Pack 

$30.95 

Epyx: 

Dive Bomber $22.95 

Impossible Mission 2 ... $22.95 

Winter Games $11.95 

Firebird: 

Universal Military 

Simulator $2R 9^ 



MIcroieague: 

MIcroleague Baseball . 

Micro. Wrestling 

Microprose: 

F-15 Strike Eagle 

Gunship 

MIndscape: 

Road Runner 



$33.95 
$25.95 



Monitors 



Magnavox: 

BM7652 $79.95 

BM7622 $79.95 

CM8502 $179.95 



Indiana Jones and the 
Temple of Doom 

Origin: 

Autoduel 

Ultima IV 



$24.95 
$28.95 



$27.95 
$27.96 



$24.95 
$34.95 



Strategic Simuiatlons: 

Questron II $32.95 

Heroes of the Lance ... $25.95 



5-1/4 

Disk Notcher $5.95 

IMaxeil: 

SSDD $7.95 

DSDD $8.95 

Bonus: 

SSDD $5.95 

DSDD $6.95 

SKC: 

DSDD $6.95 

DSHD $13.95 



Diskettes 



Generic; 

DSDD $4.95 

Verbatim: 

SSDD $8.99 

DSDD $11.50 

3.5 

IMaxeii: 

SSDD $11.50 

DSDD $17.95 



Bonus: 

SSDD $10.95 

DSDD $13.95 

Vert>atim: 

SSDD $12.95 

DSDD $18.95 

SKC: 

SSDD $9.95 

DSDD $13.99 



Interfacing: 

Xetec AT $39.95 

Microprint $39.95 

PR Connection $62.95 

Printer 

Connection $39,95 

DEALER 

INQUIRIES 

INVITED 



Joysticks 



Winner 909 $24.95 

Wico IBM/AP $29.95 

Lipstick Plus $14.95 

KraH KC III Ap/PC $16.95 

Kraft PC Joystick 

Card $27.95 

Kraft Maze Master $8.95 

I Controller $13.95 

Epyx 500 XJ $13.95 



Modems 



Avatex: 

1200e $65.95 

12001 PC Card $65.95 

1200p $89.95 

1200hc Modem $89.95 

2400 $149.95 



Supra: 



300 $119.95' 

1200 $119.95* 

2400 $129.95 

'limited Quantities 



Avatex 

2400 
Modem 



95 



$149 



Disc 
Storage 



QVS-IO 5V4 $3.95 

OVS-75 S'A $10.95 

QVS-40 3'/! $9.95 



Join the thousands who shop Lyco and Save 



_y 



How to Read the Memory Map 

Beginning users: Read tiie text that is print- 
ed in bold type only. These memory locations 
will be the easiest for you to use and usually 
don't involve assembly language. 

Advanced users: Read everything! Many 
areas of memory are not of any practical use, 
but you can learn a lot about how a computer 
works by reading the boring parts. 

Page 3 

You probably aren't going to be too thrilled 
with page 3. Why? It's all about I/O. That 
means that you may not understand a lotof it, 
because I/O can get real complicated real fast. 
Don't worry too much about it, though. BA- 
SIC has commands that take care of these lo- 
cations for you, so you're only reading about 
these locations for enlightenment. If, on the 
other hand, you're programming in machine 
language .... 

Before we go any farther, make sure you've 



Master 

Memory 

Map 
Part VII 



by Robin Sherer 



read at least vaguely on I/O. It's not that long, 
or complicated, but it will give you a nice 
overview of what everything here is used for. 



Input/Output 



Central Input/Output Routine (CIO) 

Device Handler 

Serial Input/Output Routine (SIO) 



Input/Output, or I/O as it is more common- 
ly called, is an extremely important part of 
any computer. Without it, the various parts 
of the computer wouldn't be able to talk to 
each other. Such communication isn't limit- 
ed to disk drives and printers, either. The key- 
board, television set, and screen editor must 
all be able to tell the computer what's going 
on, and all of this is I/O's responsibility. Un- 
fortunately, because I/O has so much to do, 
it can be a little complicated. Luckily, com- 
plicated doesn't mean difficult in this case, 
so despite all the memory locations that deal 
with I/O, the basic concept is relatively 
simple. 

There are three main routines that take care 
of I/O for a given device ("device" is just a 
fancy word for the keyboard, printer, or 
whatever it is we want to talk to). They are 
shown in Figure A, 



Figure A. I/O devices 

To help these three routines talk to each 
other (I told you this got complicated), there 
are also four "control blocks" in Figure B. 



Input/Output Control Block (lOCB) 
Zero-page I/O Control Block (ZIOCB) 
Device Control Block (DCB) 

Command Frame Buffer (CFB) 



Figure B. I/O control blocks 

Now that we've got the names straight, let's 

look at what each does, where it can be 

found, and how everything is tied together. 

lOCB: Actually, it should be lOCBs since 

there are eight of them. The lOCBs are found 

continued on page 54 
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HAPPY BIRTHDAY 
JEREHY! 

AND HAY YOU HAVE 
— NY HORE! 
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Ent»r your tvxt. CTL-H for H«lp scr««n. 



Print Power 

Hi-Tech Expressions 

1700 N.W. 65th Avenue, Suite 9 

Plantation, Florida 33313 

$14.95 



Reviewed by 
Matthew J.W. Ratcliff 



Print Power is a superb sign- .banner-, and 
card-making program for the 8-bit Atari com- 
puters. It comes on two Atari DOS 2.5 single- 
density format disks (witii Commodore 64 
versions on tlie flip side), one for the pro- 
gram and the other for borders, fonts and 
graphics. It is unprotected and runs great 
from a RAMdisk or hard drive, under any 
Atari-compatible DOS, including the new 
SpartaDOS X cartridge. This ability alone 
has turned me into a former Print Shop user, 
eliminating the frustrations of an incompati- 
ble disk format and protected software that 
cannot be backed up. 

Products from Hi-Tech Expressions have 
matured significantly over the past couple of 
years, while the prices have stayed remark- 
ably affordable. Their continued support of 
the Atari 8-bit computers with high power, 
low-priced products is certainly a welcome 
sight in light of the current lack of new 
productivity software. 

Print Power comes with 40 different bor- 
ders to choose from, which can be used in 
the creation of signs, letterheads and greet- 
ing cards. They are suitable for parties, 
Christmas, St. Patrick's Day and sporting 
events, among other more general forms. 
Borders are chosen from a menu by name. 
It is easy to page through the names with the 
up and down arrow keys on the keyboard. 
(You don't have to press and hold the con- 
trol key when using the arrow keys.) A graph- 
ic printout of these borders is on a separate 



"Design Tools" reference card, which comes 
with the software package. You need to keep 
the card handy, since you will not see a 
graphical representation of the borders on the 
display. 

(Note: The above limitation results in 
documentation-dependent software. This is a 
reasonable trade-off for no copy protection. 
Many companies, such as Electronic Arts, 
are eliminating disk-based copy protection in 
favor of documentation dependency. This al- 
lows owners of the product to make legitimate 
backups of the software, while preventing 
wholesale copying of the software by mag- 
netic means only. Hi-Tech's products are in- 
deed powerful and affordable, certainly 
worthy of patronage and not piracy.) 

There are 60 different graphical icons to 
choose from, also printed and labeled on the 
"Design Tools" reference card. Five differ- 
ent graphic sizes may be selected to fill all, 
half or one quarter of the page. One- or two- 
inch (wide) sizes may be chosen also, handy 
for letterheads. Once the graphic is select- 
ed, a flashing box is placed on a representa- 
tion of the card or sign you are currently 
building. Arrow keys move the box, and the 
space bar "anchors" a copy in the desired lo- 
cation. Multiple copies of a single graphic 
can be placed on a single page, but different 
graphics cannot be loaded for a single card 
face, sign or letterhead. 

In a greeting card, up to four different faces 
(front, inside left, inside right and back) may 
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Print Power is 

unprotected and 

runs great from a 

RAMdisk or 

hard drive. 



be defined. On each card face a different 
border, graphic and body of text (including 
none) may be defined. Greeting cards may 
be created in wide, tall and tent formats. 

Print Power provides six different fonts for 
text editing, including Fine Print (a fine type- 
writer style text), Avante Garde (sans-serif 
style), Headline (bold courier), Times, Old 
English and Zapf (a cross between script and 
italics). While editing your text, many differ- 
ent control-key commands are at your dis- 
posal. Special text effects such as Bold, Italic, 
Outline, Jazz (multiple shadows). Shadowed 
(outline with shadow) and Raised (outline, 
italics, with shadow) may be enabled on each 
line. Each special effect is enabled for an en- 
tire line of text; you cannot have two differ- 
ent fonts on the same line. If bold is enabled 
on a line, the entire line will be printed in 
bold. Justification can be set to left, center 
or right. Up to four different fonts can be 
used in a single design. 

Cards, signs and stationary allow three 
different text sizes, while banners can have 
eleven text sizes. Banners can be up to 42 
pages long! When placing text on a page, the 
editor is smart enough to know when a line 
of text overruns the current line. A miniature 
graphical representation of your page and text 
are shown at the top of the screen as you enter 
text in a window at the bottom. If the text is 
too large to fit, your line becomes filled with 
"shadowed" characters. At this point charac- 
ters can be deleted, or the font and text ef- 
fects (such as size) changed to make the line 
fit. 

The biggest problem with the text editor 
is that insertions of entire lines must be done 
manually. You cannot simply press Shift- 
Insert to make room for another line. In other 
words. Print Power's editor is "line" rather 
than "page" oriented. Generally, signs and 
cards are rather brief and this isn't too much 
of a problem. Other nice features of the text 
editor include a help screen and the ability 
of "masking" text, which provides a white 
outline of text when overlayed on a graphics 
background. 



Print Power supports a lot of printers. It 
also includes a printer-driver construction 
set. Building a custom printer driver requires 
the assistance of a good printer reference 
manual and a lot of trial and error. The setup 
menu provides control of printer selection 
and testing, as well as memory configuration. 
The Atari version of Print Power is smart 
enough to use extra bank-switched memory 
of XL and XE computers, if enabled. Spar- 
taDOS users can tell Print Power to use only 
the lower 48K of computer memory, so as not 
to conflict with the special areas of RAM that 
SpartaDOS requires. 

Print Power may directly use fonts and 
graphics from the Sesame Street Print Kit, 
and it will modify an Awardware disk, en- 
abling you to use its graphics as well. A util- 
ity from No Frills Software called The 
Converter will allow the conversion of Print 
Shop icons to Print Power format. (You can 
even edit Print Power and other graphics with 
The Converter, something Print Power 
doesn't allow.) The Converter will be 
reviewed in ANALOG soon. 

I don't have any real complaints about Print 
Power. Its limitations are few. It does not pro- 
vide a scaled graphical representation of icons 
and borders, as Print Shop does. But this is 
a fair trade-off, as noted earlier. With Print 
Power you cannot edit the graphics or fonts. 
The Converter from No Frills Software solves 
the graphics editing problem. I would like to 
see a font creator/ editor/converter (load and 
convert Atari custom fonts) to turbocharge 
Print Power's capabilities. 

As it is. Print Power is a phenomenal value 
at only $14.95. The Converter will make 
thousands of Print Shop icons available to 
Print Power, if you are concerned about mak- 
ing the move over to this product. Sesame 
Street Print Kit (also $14.95) is a nifty pack- 
age in its own right, and will expand the 
graphic, border and font library of Print Pow- 
er; an excellent product for young children. 
Print Power will provide many hours of crea- 
tive fun for you and your family; I highly 
recommend it. P 
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by Lee S. Brilliant, M.D. 



The neophyte programmer sits 
hunched over his Atari 800, slowly 
working out the details of his ultimate 
graphics display. He has been work- 
ing for the last eight hours to com- 
plete his program in time for the computer 
fair. So he sits glued to the screen, his trusty 
410 recorder by his side, oblivious to every- 
thing going on around him, including the 
dark clouds gathering to the west; and as the 
time passes, the clouds ominously thicken 
and approach. Then in a flash and one blink 
of the lights, all eight hours of programming 
disappear. 

Now the scene is a users'-group meeting 
where the club president has asked for volun- 
teers to work the AtariFest. By the end of the 
meeting 20 or so people have entered their 
names into the computer registration. After 
at least half of the members have left, some- 
one trips on the power cord and the list is 
gone. 

Do any of these situations sound familiar? 
If they do then you need a UPS or Uninter- 
ruptable Power Supply. This month we will 
look at the last plug on your computer, the 
power plug, and we will build a UPS and the 
first portable Atari. 

What is a UPS? 

A UPS provides power to your computer 
and peripherals for as much as several hours, 
depending on the size of the unit and the de- 
mands of your equipment. Such a device is 



composed of a storage battery, an inverter 
which creates 60 Hz alternating current from 
the battery, and a power supply to charge the 
battery. Generally speaking there are two 
types: kick-in and continuous. 

Look at Figure 1. In the continuous type, 
UO-volt power is converted to ]2 volts in suffi- 
cient quantity for the inverter to power the 
computer all the time. The battery sits in 
parallel so its energy is consumed only when 
the main supply fails. Opposed to this is the 
kick-in type where the battery is kept charged 
constantly, but the inverter and battery only 
come online when the AC fails. The major 
differences are: 

1) Cost. The continuous system needs to 
convert enough AC power to 12 volts DC to 
run the inverter continuously, and so needs 
a large, expensive power supply. The kick- 
in type only has to recharge the battery, not 
replace it. 

2) Switch-over time. The continuous types 
provide instantaneous changeover from AC 
to battery since the inverter is always running, 
and the battery is never really disconnected. 
But the kick-in types need to wait to detect 
the absence of the AC before the battery and 
inverter turn on. The minimum is half a cy- 
cle which is about eight milliseconds. For 
practical considerations this is about 10 ms, 
short enough for the computer's power sup- 
ply to handle. 

Now the bad news. Typical 300-watt units 
cost at least $350 and are available through 



computer centers or mail-order supply com- 
panies. If you own a $5,000 IBM-AT running 
a $500 database program, a $350 investment 
for a UPS is reasonable. But when your UPS 
purchase could buy a computer, disk drive 
and monitor, it does not. The good news for 
XL or XE owners is that you can build your 
own UPS for under $50, one that will keep 
your computer running for over an hour in 
case of a power outage and also free your 
Atari from power lines. 

ne Heart of the UPS 

A standard UPS replaces the UO-volt AC 
power, but our UPS takes a different ap- 
proach than those in Figure 1. The new Atari 
8-bit computers run off of single five-volt 
power supplies, so all you need is to provide 
an uninterrupted supply of five- volt power to 
your computer, and you are protected from 
short-term power loss. The easiest way would 
be to place a five- volt battery across the pow- 
er plug to the computer. As it turns out, four 
Nickel Cadmium batteries put out five volts 
and should suit the bill, as shown in Figure 2. 

Unfortunately, the details do not work out 
this easily. The measured output of four 
freshly charged NiCads is 5.1 volts, while the 
output of my XL power supply was 4.8 volts 
under load (about one ampere). The result 
is that the batteries continuously lose power 
into the computer even when the power sup- 
ply is working. You can place a diode in se- 
ries with the batteries to block reverse flow 
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and drop the battery voltage to about 4.3 
volts. This actually works but is only margi- 
nally successful because 4.3 volts is below 
the operational rating of the computer and 
may result in some berserk operations. The 
other problem is that the computer's power 
supply sucks huge amounts of battery power 
when you unplug it, so battery life is very 
short. You can, however, easily provide por- 
table operation this way, using only the 
NiCads without the power supply or diode. 

A better approach is to build our own pow- 
er supply and design it from scratch to use bat- 
tery back-up, essentially making a version of 
a continuous-type UPS. The power supply that 
comes with your Atari could be modified if 
its innards were accessible, but I don't recom- 
mend this approach. There are at least four 
different supplies that come with the X series 
computers, and each one is different. Mine is 
completely filled with epoxy and, so, un- 
modifiable. The schematic for our homebrew 
supply is shown in Figure 3. 

Tl, Dl and CI generate about 14 volts of 
DC at one ampere. This is fed to a voltage 
regulator, ICl, which drops the output to a 
steady five volts so long as the supply input 
is over eight volts. So far we have only dupli- 
cated the existing Atari power supply, so the 
12-volt battery is added to provide power to 
the regulator even when the 110-volt source 
dries up. Power from Dl will tend to flow into 
the battery, which is only about 12 volts. D2 
prevents this backflow and consequent over- 
charging of the battery. With D2 present, 
there is no current draw from the battery un- 
less the voltage from the Dl stops, then the 
transfer of power from the battery begins 
without any delay. If you leave off Tl and Dl 
you have a portable five-volt power supply 
that runs your computer without a plug-in and 
could open the way for self-contained Atari 
robots! 

Construction 

Construction is not difficult but needs a few 
comments for the beginner. The case should 
be metal since you are dealing with high volt- 
ages and need to provide a heat sink for the 
regulator. Use an insulating mounting kit and 
heat-sink grease to attach the voltage regula- 
tor so there is good thermal contact but no 
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electrical connection between the regulator 
and the box. Sand off the paint from the case 
under the regulator because if there is not 
adequate heat dissipation for the regulator, 
it will overheat and shut down, thus defeat- 
ing the purpose of this project. Don't worry, 
though, regulators of this type are virtually 
immune to damage due to overheating or 
overloading including short circuits. The me- 
tal box will get a little warm after running 
a while and this is normal. 

A standard 7805 (fixed at five volts) regu- 
lator is not quite powerful enough, so I used 
a LM317T adjustable regulator because 1) it 
was laying around my shop, and 2) it is rat- 
ed at 1.5 amps. The values of Rl and R2 are 
selected to produce exactly five volts from my 
317T. You should use a voltmeter to check the 
output from your supply before plugging into 
your computer. If you put in more than 5.2 
volts, you could turn your Atari into a paper- 
weight. If you need to adjust the output of 
the regulator, change the value of Rl— higher 
to increase voltage, lower to decrease it. Con- 



nections to the seven-pin plug are viewed 
from the plug's pin side, not the cable end. 

Any battery can be used so long as it is be- 
tween nine and 12 volts. You could use ten 
NiCads, two lantern batteries, an automobile 
or motorcycle battery or even eight "D"-size 
alkalines. The type and size of battery is de- 
termined by what you want to do and how long 
you want to run on battery power. Alkaline 
batteries should run only 30 minutes or so, 
but the batteries have a long shelf life and need 
replacement only after use or after three years. 

NiCads are readily available in several sizes: 
both "C" and "D" sizes have a 1.2-amp-hour 
rating and are readily available. However, they 
lose power just sitting around, about 10% per 
month, and so need frequent recharging. Some 
"D" varieties have four-amp-hour ratings and 
so will last three times longer. Automotive bat- 
teries have massive power ratings but are quite 
large and can leak acid. 

The best overall types are sealed lead-acid 

batteries or gelled electrolyte batteries (gel- 

conlinued on page 52 



BASIC 

Editor n 



by Clayton Walnum 



BASIC Editor II is a utility to help you 
enter BASIC program listings pub- 
lisiied in ANALOG Computing. To 
simplify the identification of errors, 
each program line is evaluated im- 
mediately after it's typed, eliminating the 
need for cumbersome checksum listings. 
When you've finished entering a program us- 
ing BASIC Editor II, you can be certain it 
contains no typos. 

An option is provided for those who wish 
to use standard BASIC abbreviations. Also, 
the program retains all Atari editing features. 
Finally, for those who prefer to type programs 
the conventional way, using the built-in edi- 
tor, a post-processing mode is available. It al- 
lows you to check typing after the entire 
listing has been entered. 

Typing in the Editor 

To create your copy of BASIC Editor II, 
follow the instructions below— exactly. 

Disk version: 

(1) Type in Listing 1, then verify your work 
with Unicheck (see Issue 39). 

(2) Save the program to disk with the com- 
mand SAVE •'D:EDIT0RL1.MS". 

(3) Clear the computer's memory with the 
command NEW. 

(4) Type in Listing 2, then verify your work 
with Unicheck. 

(5) Run the program (after saving a back- 
up copy) and follow all the on-screen 
prompts. A data file will be written to your 
disk. 

(6) Load Listing 1 with the command 
LOAD "EDITORLl.BAS". 

(7) Merge the file created by List- 
ing 2 with the command ENTER 
"D.ML.DAT". 



(8) Save the resultant program with the com- 
mand LIST ••D-.EDITORII.LST". 

Cassette version: 

(1) Type in Listing 1 and verify your work 
with Unicheck. 

(2) Save the program to cassette with the 
command CSAVE. (Do not rewind the 
cassette.) 

(3) Clear the computer's memory with the 
command NEW. 

(4) Type in Listing 2 and verify your work 
with Unicheck. 

(5) Run the program and follow the on- 
screen prompts. A data file will be written to 
your cassette. 

(6) Rewind the cassette. 

(7) Load Listing 1 with the command 
CLOAD. 

(8) Merge the file created by Listing 2 with 
the command ENTER "C". 

(9) On a new cassette, save the resultant pro- 
gram with the command LIST "C:". 

Using the Editor 

Take a look at one of the BASIC program 
listings in this issue. Notice that each program 
line is preceded by a two-letter code. This code 
is the checksum for that line; it's not a part 
of the program. 

To enter a program listing from the maga- 
zine, load BASIC Editor II with the ENTER 
command, and run it. You'll be asked if you 
wish to allow abbreviations (see your BASIC 
manual). If you do, type Y and press 
RETURN. Otherwise, type N. 

Note: If you set BASIC Editor II to allow 
abbreviations, the program will run slightly 
slower. 

Your screen will now be divided into two 
"windows." The upper window wUl display 
each line after it's processed, as well as the 



checksum generated for that line. The lower 
window is where program lines are typed and 
edited. 

When the program's waiting for input, the 
cursor will appear at the left margin of the typ- 
ing window. Type a program line and press 
RETURN. The line will be evaluated and 
reprinted in the message window, along with 
the checksum generated. 

If the checksum matches the one in the 
magazine, then go on to the next program line. 
Otherwise, enter the command E (edit) and 
press RETURN. The line you just typed will 
appear in the typing window, where you may 
edit it. When you think the line has been cor- 
rected, press RETURN, and it'll be 
reevaluated. 

Note: You may call up any line previously 
typed, with the command E followed by the 
number of the line you wish to edit. For ex- 
ample, E230 will print Line 230 in the typ- 
ing window. Do not attempt to edit any 
program lines numbered 32600 and higher. 
These lines fall within the BASIC Editor H 
program. 

If you're using BASIC abbreviations, the 
two versions of the command E work slightly 
differently. The command E, without a line 
number, will call up the line exactly as you 
typed it. When you append the line number, 
the line will be printed in its expanded (un- 
abbreviated) form. 

Leaving the Editor 

You may leave BASIC Editor n at any time, 
by entering either B (BASIC) or Q (quit). If 
you type B, the Editor will remm you to BAS- 
IC. Enter LI^ to review your work, if you 
wish. Note that lines 32600 and above are the 
Editor program. Your work will appear be- 
fore these lines. To return to the Editor, type 
GOTO 32600. 

Type Q, and you'll be asked if you really 
want to quit. If you type Y, the Editor pro- 
gram wUl be erased from memory, and you 
may then save your work in any manner you 
like. If you type A^, the Q command will be 
aborted. 

Large listings 

If the program you're entering is particu- 
larly long, you may need to take a break. 
When you want to stop, type Q and press 
RETURN, then save your work to disk or cas- 
sette. When you're ready to start again, load 
the program you were working on, then load 
BASIC Editor H with the ENTER command. 
Type GOIV 32600, and you're back in 
business. 
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The post-processor 

Many people may not want to use BASIC 
Editor n when entering a program listing, 
preferring, instead, the Atari's built-in editor. 
For that reason, BASIC Editor II will allow 
you to check and edit your programs after 
they've been typed. 

To take advantage of this option, type any 
magazine program in the conventional man- 
ner, then save a copy to disk or cassette (just 
in case). With your typed-in program still in 
memory, load BASIC Editor n with the 
ENTER command, then type GOTV 32600. 

Respond with A^ to the "abbreviations" 
prompt. When the Editor appears on your 
screen, enter the command P (post-process), 
and the first program line will appear in the 
typing window. Press RETURN to enter it into 
the Editor. 

The line will be processed, and the check- 
sum, along with the program line, will be 
printed in the upper window. If the checksum 
matches the one in the magazine, press 
RETURN twice, and the next line will be 
processed. 

If you find you must edit a line, enter the 
command E, and the line will be moved back 
to the typing window for editing. 

When the entire listing has been checked, 
you'll be asked if you wish to quit. Type Y 
and press RETURN. The Editor program will 
be removed from memory, and you may then 
save the edited program in any manner you 
wish. 

Murphy's Law 

Anyone who's been associated with comput- 
ing knows this is the industry Murphy had in 
mind. You may find that, after typing a pro- 
gram with BASIC Editor II, it still won't run 
properly. There are two likely causes for this. 

First, it may be that you're not following the 
program's instructions properly. Always read 
the article accompanying a program before at- 
tempthig to run it. Failure to do so may present 
you with upsetting results. 

Finally, though you can trust BASIC Edi- 
tor II to catch your typos, it can't tell you if 
you've skipped some lines entirely. If your 
program won't run, make sure you've typed 
all of it. Missing program lines are guaran- 
teed trouble. 

One last word: Some people find it an un- 
necessary and nasty chore to type REM lines. 
I don't condone the omission of these lines, 
since they may be referenced within the pro- 
gram (a bad practice, but not unheard of)- If 
you want to take chances, BASIC Editor n is 
willing to comply. 



When you ^ve finished entering a 

program using BASIC Editor II, you 

can be certain it contains no typos. 



Listing 1. 
BASIC listing. 



32608 IF FL THEM 32616 

32602 DIM LS(115> ,SUS(115> ,C2St2>,B$Ci 

15) ,M$(113) ,5$C98],E$C69) ,a$(l} :FL=115 

TMII>B = PEEK [136) tPEEK (137)«256 

32604 GRAPHICS BiPOKE 718, : P=e : OBRzO : 

? "flLLOH 0BBREUIBTI0N5"; IIHPUT dSllF A 

S = "V" OB AS = "!,l" THEN 0BR = 1 

32606 BS(1)=" "!BS(115)=" ":BS[2)=B$ 

32616 OPEN ni7,4,8,"Er'!L$ = " "1G05UB 3 

2662:5T0RT=0 

32618 POKE 766,1:P0KE B3, 39 ; POSITION 1 

,3:IF LEN(LS)<3? THEN ? LSiCOTO 32624 

32620 IF LENCLSX77 THEN ? L$tl,3B)!? 

LS(39,LEN(L$)) :GOT0 32624 

32622 ? LSC1,3B)!? LSC39,7B)I? L$t77,L 

EN(L«)) 

32624 POKE 752,0;PDKE 766,0IP0KE 555,3 

4:PDKE 82,1:P0KE 83, 3B ! POSITION 8,181? 

" ";!INPUT ai7iLS!P0KE 766,1 
32626 IF CLS="P" OR LS="P") AND 5TflRT= 
THEN P=1;LS="" 

32628 IF L$="E" OR LS="e" THEN E=1:P0S 
ITION 1,10:? SUS GOTO 32624 
32630 IF LS="0" UR L$="q" THEN 3269B 
32632 IF LS="" UNO P=l THEN 326B6 
32634 IF LS="" THEN 32624 
32636 IF LS="B" OR LS="b" THEN GROPHIC 
5 8!? "TYPE 'GOTO 32608" TO CONTINUE": 
END 

32638 IF LS(1,1)="E" OR L$tl,l)="e" TH 
EN E=l:TROP 32624:EL=VALCL$(2)) :POSITI 
ON 1,9:LIST ELICOTO 32624 
32648 SVS^LSlTRdP 32624 : K = U(1L CL$) 
32642 START=llIF P AND NOT E THEN 326 
52 

32644 GOSUB 326741IF NOT ABR OR P THE 
N 32652 

32646 POKE 766,8:? CHR$ H2S) : POSITION 
8,3:L=VAL(L$) !LI5T LI? :? :? "CONT":L$ 
= 85 

32648 POSITION 8,0:P0KE 842,13:5T0P 
32658 POKE 842,12:A = USR(ADR(S$) ,AI>R(L$ 
) ,4) ;LS = LS(1, A) 

3265 2 CHK5UM=U5R«A[>RCMS) ,ADR(LS) , LEN tL 
$)) :CHKSUM=CHK5UMt PEEK C1542) •65536 
32654 CHK = CHKSUH-CINT(CHKSUM/676)t<67B) 
;HI = INTCCHK/26) ;L0 = CHK-(HH(26) ;C2SC1) = 
CHR$tHIt65) :C2SC2)=CHR$(L0t65) 
32656 IF NOT P OR E THEN E=8:G05UB 32 
662:IF NOT P THEN 32668 
32658 POKE 83,39;P0KE 7S2,1:F0H X=3 TO 

5:P0SITI0N 1,X:? B$(l,36) IPOSITION 1, 
Kt7:? B$tl,38) ;NEXT K:P0KE 83,38 
32668 POKE 766,1:P0KE 83, 38 : POSITION 6 
,7:? C2$;P0KE 752,0lGOTO 32618 
32662 GOSUB 32702:P0KE 766,0:P0KE 752, 
l;? "IS":POKE 82,l:l>L = PEEK(560)t256»PEE 
K(S61) t4 

32664 POKE DL-1,70!P0KE DL*2,6:P0KE BL 
+3,112:P0KE DLt4,112:P0KE DLtS,112:P0K 
E I)L + 13,112:P0KE DLtl4,112 
32666 POKE DL*22,112:P0KE DL+23,112:P0 
KE DLt24,6S:P0KE DL+25, PEEK (560) : POKE 
DLt26,PEEK(561) :POKE 83 ,39 
32668 POSITION 20,01? ■*— — 
■;POSITION 0,71? 

I!k:I'1'1 




:P05ITI0N 



32672 POKE 559, 34 : RETURN 

32674 GRAPHICS 8:P0KE 559,0:P0KE 766,1 

IPOKE B2,8:P0KE 83 , 39 : POSITION 8,3:? L 

S;? :? !? !? "C0HT":P0SITI0N 8,8 

32676 POKE 842,13:5T0P 

32678 POKE 842,12:TRAP 32682 : A=USR [ABR 

[ES),UAL(LS)) :IF A=4 THEN POP (GOTO 32 

32680 RETURN 

32682 GOSUB 32662:S0UND 8, 75, 10, 8 : FOR 

K=l TO 20:NEXT XsSOUNO 8, 8, 8, : POSITIO 

N 1,3:? "SYNTAX ERR0R!":P0KE 766,1 

32684 POKE 83, 38 : POSITION 1,18;? 5U*;G 

OTO 32624 

32686 LINE=PEEK[5TMTAB)tPEEK[STHTABtl) 

«256:IF LINE>32599 THEN 32690 

32688 0FS=PEEK(5TMTftB+2) : STMTAB=STMTAB 

tOFSIPOSITION 1,9:LIST LINE:G0T0 32624 

32690 POKE 766,8:P0SITIOM 1,18:? "READ 

Y TO QUIT"j;INPUT «$1IF AS<>"Y" THEN P 

OSITION 1,10:? B$(l,38) :G0T0 32624 

32692 GRAPHICS 0:? :? !7 : FOR X=32609 

TO 32636 STEP Z;? X:NEXT X:? "CONT":PO 

SITIOK 0,8:P0KE 842,13:ST0P 

32694 POKE 842,12;GRaPHIC5 Ol? ;? :? : 

FOR X=32638 TO 32674 STEP 2l? XINEXT X 

:? :? "C0NT":P05ITI0N e,e 

32696 POKE 842,13:ST0P 

32698 POKE 842,1Z:GRAPHICS 81? 1? :? I 
FOR X33267B TO 32702 STEP 21? X;NEXT K 
I? :? "POKE 842,12":P0SITI0N 8,8 



32700 POKE 842,13!5T0P 

32702 POKE 16,112:P0KE 53774, 112 : RETUR 

N 



CHECKSUM DATA. 

fsee issue 39's Unicheck) 



32600 DATA 6,665,923,757,809,171,225,8 
98,532,499,910,267,912,144,735,8453 
32638 DATA 97,358,230,693,706,878,317, 
127,36,597,238,258,182,430,168,5315 
32668 DATA 864,953,472,385,887,724,72, 
687,908,736,625,612,672,184,891,9672 
32698 DATA 8,856,85,949 



Listing 2. 
BASIC listing. 



10 DIM LS[120),MLS(119),A$[U 
20 GRAPHICS 0:P0KE 710,0:? "QISK OR HA 
55ETTE"; :INPUT AS:IF AS<>"C" AND A$<>" 
D" THEN 20 

30 IF AS="C" then 50 

40 ? "PLACE FORMATTED DISK IN DRIVE"!? 
"THEN PRESS RETURN" : INPUT L$:OPEN Itl, 
8,0,"D:ML.DAT":GOTO 60 
50 ? :? "READY CASSETTE, PRESS RETURN" 

,':INPUT L$:0PEN ni,8,o,"C;" 

60 LS="32608 MS(1)=":L5(13)=CHRS[34> 
70 N=119:C05UB 130 ! LS (14) =MLS (1, 58) : L$ 

(LEN(LS)+i)=chrS(34) :? ai;LS 

80 L*[l)="32610 M$[59)=";LS[14)=CHR$[3 
4) :LS[15)=MLS[59) : L$ (LEN (L$) +1) =CHR$ (3 

4) :? ni;LS 

90 L*(l)="32612 5S=":L$[10):CHR$(34) 
100 ML$="";N=98:G05UB 138:L$(11)=HL$:L 

S(len(l$)+i)=chrS[34) :? ni;L$ 

110 LS(1)="32614 E$=":LS(10)=CHRS(34) 

120 HL$="":N=69:G05UB 130 : L$ (11) =ML$ : L 

$(LEN(LS) tl)=CHRS(34) :? nl;US!END 

130 FOR X=l TO N:READ A:MLS(X)=CHR$(A) 

'NEKT X'RETURN 

140 DATA 104,104,133,204,104,133,203,1 

04,104,133,205,169,0,141,3,6,141,2,6,1 

41,4,6,141,5,6 

150 DATA 141,6,6,238,3,6,32,68,218,172 

,2,6,177,203,133,212,32,170,217,32,182 

,221,32,68,218 

160 DATA 173,3,6,133,212,32,178,217,32 

,219,218,32,210,217,165,212,141,0,6,16 

5,213,141,1,6,24 

170 DATA 173,0,6,109,4,6,141,4,6,173,1 

,6,109,5,6,141,5,6,144,3,238,6,6,238,2 

180 DATA 6,172,2,6,196,205,206,176,173 

,4,6,133,212,173,5,6,133,213,96 

190 DATA 104,104,133,204,104,133,203,1 

04,184,141,255,6,169,0,133,213,216,165 

,88,133,285,165,89,133,206 

200 DATA 174,255,6,24,165,205,105,40,1 

33,205,14 4,2,230,206,202,208,242,160,0 

,177,205,201,64,14 4,18 

218 DATA 201,96,144,19,201,128,144,18, 

201,192,14 4,6,201,224,144,7,176,8,24,1 

05,32,144,3,56,233 

220 DATA 64,145,203,200,192,114,240,2, 

208,215,177,203,201,32,208,3,136,208,2 

47,200,132,212,96 

238 DATA 104,104,141,254,6,104,141,253 

,6,169,8,133,213,216,165,136,133,205,1 

65,137,133,206,160,0,177 

240 DATA 205,205,253,6,208,8,280,177,2 

05,205,254,6,240,15,160,2,177,205,24,1 

01,205,133,205,144,228 

250 DATA 230,206,176,224,160,4,177,205 

,201,55,248,4,160,8,240,8,132,212,96 



CHECKSUM DATA. 

(see issue 39's Unicheck] 



10 DATA 203,265,465,844,294,973,652,27 
8,978,797,278,275,835,209,301,7639 
50 DATA 355,94,254,428,935,840,588,41 ^.— 
,974,564,5435 |{-| 
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S3 




by Karl E. Wiegers 



Karl's Komputerized Kitchen 



When last we met, we were discussing 
how to get our Atari to understand instruc- 
tions presented to it in normal English 
sentences — natural-language communica- 
tion with the computer. The software that 
gives the computer the ability to at least 
partially understand natural-language input 
is called a "parser." The parser, as we dis- 
covered, has three principal functions: to 
break (or parse) the user's input into in- 
dividual words and numbers; to search for 
these words in a preset vocabulary list; and 
to determine if a valid instruction has been 
entered and take appropriate action. 

We chose as an example of natural- 
language communication a hypothetical 
kitchen of the future: Karl's Komputerized 
Kitchen. In this dream kitchen, we simply 
have to tell the computer what ingredients 
to combine and how to cook them, and the 
automated kitchen will do the rest. (My fi- 
ancee thinks this is the greatest idea since 
takeout pizza. )While I haven't yet connect- 
ed my Atari to my Mixmaster, we can at 
least think about how we'd like to commu- 
nicate with this komputerized kitchen. 

Last time we focused on the second func- 



tion of the parser, the act of looking up 
words from the user's command in a 
vocabulary list. A sample BASIC program 
was included to build a small vocabulary 
file with ordinary cooking kinds of words; 
FLOUR, SUGAR, BAKE, PREHEAT, 
STIR, and so on. Each word is assigned 
a number, or "token," to make it easier to 
handle the program logic when we get to 
the stage of trying to make sense out of the 
user's input. Synonyms, such as BUTTER, 
MARGARINE and SHORTENING, all 
have the same token. For simplicity, our 
vocabulary contains only words with all up- 
percase letters, and only exact matches to 
vocabulary words will be accepted. This 
rules out misspellings or plural forms, but 
it keeps our sample program simpler. 

Whereas the core of the previous column 
was an assembler routine for searching the 
vocabulary list for a specific word, today's 
program is written entirely in Atari BASIC. 
It illustrates the other two functions of a 
full-parser program. I called the initial step 
of splitting the user's input into words and 
numbers a "preprocessor" function. Af- 
ter preprocessing, the machine-language 



routine we looked at last time is used to 
look for individual words and assign tokens 
to them. Step 3 is to evaluate the tokenized 
input and see if it makes any sense, in the 
context of what the computer has been 
programmed to "understand." If we are 
skillful, the result will be a simple BASIC 
program that appears to be remarkably in- 
telligent. 

Erratum 

We begin with a minor correction to List- 
ing 1 from last time. This was program 
VOCAB.BAS, which created the VOCAB. 
DAT vocabulary file. In Line 1070, please 
change the number following the word 
"DEGREES" to a 33. You may recall that 
these numbers are the tokens assigned to 
each vocabulary word. Rerun this program 
to create a new VOCAB.DAT file before 
proceeding further. Sorry about that. 



Recipe Rules 

Before getting too deep into the code, 
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we'd better establish some ground rules for 
the komputerized kitchen program. First, 
I want to limit the number of commands 
entered before you can throw the pot into 
the oven to a maximum of ten. As valid 
commands are entered, I'll save them in a 
string pseudo-array and write them at the 
top of the screen before prompting for the 
next command. You'll have to preheat the 
oven to the desired temperature before bak- 
ing your mixture. And the fmal command 
will be to bake whatever you have thrown 
together, no matter how disgusting it may 
appear. 

Our vocabulary is rather limited for a 
full-blown automated kitchen, but this pro- 
gram should at least illustrate the power of 
a parser program. A real application pro- 
gram would of course include other useful 
terms in the vocabulary, such as "HELP" 
and "QUIT." I've omitted such user aids 
for conciseness, but don't ever leave these 
important functions out of an actual 
program! 

As we parse each entered command, any 
words or numbers identified will be print- 
ed on the screen. This way you can watch 
as the computer tries to make sense out of 
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whatever you tell it to do. 

There are four classes of meaningful 
words that a user could enter in a command 
in this program. First is the name of an in- 
gredient. The VOCAB.BAS program 
showed that ingredients have tokens in the 
numeric range of 0-19. Instructions have 
tokens in the range of 20-29. Units associat- 
ed with cooking time or temperature have 
tokens in the 30s. And units associated with 
ingredients have tokens in the 40s. Also, 
each command entered in this particular 
program must contain a number, to indi- 
cate the amount of an ingredient to add, a 
preheating temperature, or a cooking time. 

Warming Up 

In brief, our preprocessing fimction will 
separate words in the input string by look- 
ing for blank (space) characters in the com- 
mand. As each word is isolated, it will be 
looked up in the vocabulary list. If the first 
character in a word is in the ATASCn range 
for a digit from 0-9, that entire "word" is 
considered to be a number, and a separate 
processing routine is used. Note that this 
method won't handle numbers that begin 



with either a minus sign (hyphen) or a 
decimal point (period), but it could be 
changed easily to accommodate these. 

Please turn your attention to the BASIC 
program in Listing 1. At first glance, this 
program may appear to contain a lot of 
spaghetti code, what with all the GOTOs, 
but I think it's better than it looks. Before 
we go any further, let's define what some 
key variables in this program represent. 



VOCAB$— 


entire vocabulary data 




string. 


TEMP$- 


temporary variable for 




reading from 




VOCAB.DAT. 


WORD$- 


target word being searched 




for in VOCAB$. 


PARSED$- 


command entered by user 




after removing unrecog- 




nized words. 


ML$— 


machine-language code for 




the parser. 


IN$- 


command string entered by 




user. 


NUM$- 


string representation of any 




number present in the 




conunand entered. 



A$- 
INSTR$- 

PREHEATS- 

NINS- 

AMOUNT- 

INGRED— 

INSTRUCT- 

TIMETEMP- 

UNITS- 
BAKETEMP- 



temporary variable, 
string pseudo-array of valid 
instructions entered so far. 
flag for whether oven is 
preheated or not. 
number of valid commands 
entered so far. 
numeric form of number in 
NUM$. 

token value of any ingre- 
dient in command entered, 
token value of any instruc- 
tion in command entered. 

-token value if units for 
cooking time or tempera- 
ture were included in com- 
mand entered, 
token for ingredient units 
included in command 
entered. 

-cooking temperature en- 
tered in a BAKE or 
COOK command. 



Lines 10-140 of this program are pretty 
much the same as Listing 3 from last time. 
Some string variables are dimensioned, then 
the vocabulary-searcher machine-language 
code is read from file PARSER.OBJ (Lines 
30-90). Next, the vocabulary data is read into 
variable VOCAB$ from file VOCAB.DAT 
(Lines 100-140). Some of the work variables 
needed are initialized in Line 150. 

Lines 160-200 clear the screen and print 
any valid commands entered so far on the 
screen. If the oven has already been preheat- 
ed, Line 205 prints a message to that effect. 
Lines 210-220 accept the next command from 
the user. If he just pressed Return without an 
entry, Line 230 tells him to try it again. Line 
240 initializes the values for the four classes 
of vocabulary entries to zeros. If any words 
in these categories are found in the command 
entered, these variables will be set to the cor- 
responding token values for the vocabulary 
words. The evaluator part of the program wDl 
examine the pattern of the tokens stored in 
these variables when it attempts to interpret 
the user's command. 

Line 300 sets a variable called I to 1. This 
variable always points to the character we are 
currently processing from the command en- 
tered. After processing each character, I will 



Fve frequently 

been insulted, but 

never incremented. 

Does it hurt? 



be incremented to point to the next charac- 
ter. (A new experience for me— I've frequent- 
ly been insulted, but never incremented. Does 
it hurt?) The variable MAX equals the num- 
ber of characters in the command string. 
When I is greater than MAX, the entire com- 
mand has been processed, and this pre- 
processor loop terminates (Line 310). The 
evaluator function begins in Line 800; more 
about that later. 

Line 320 plucks the next character from the 
command string, and Line 330 checks to see 
if this character is a space. If so, we could 
be at the end of a word. Fall through to Line 
340 to see if the WORD$ variable contains 
anything yet. If not, we've probably detect- 
ed a leading blank in the input string, so go 
back to Line 310 to get the next character. 
However, if WORD$ does contain something, 
we're ready to see if that word is in our 
vocabulary, so Line 350 calls a subroutine at 
Line 600 for this purpose. More about this 
later, too. 

If our current character is not a blank, we 
must already be in the middle of a word. Line 
360 tests whether this character is in the 
ATASCn range for a digit. If so, a subrou- 
tine at Line 500 is called to handle it. (We'll 
get to this in just a bit.) If the current charac- 
ter is a lowercase letter, Line 370 translates 
it to uppercase. Line 380 adds this character 
to the end of our WORDS variable and Line 
390 says to go get the next character. 

Number processing is dealt with in a 
subroutine beginning in Line 500. The digit 
character is added to the end of variable 
NUM$ and also is printed on the screen in 
Line 510. Line 520 points to the next charac- 
ter in the input string, and Line 530 tests to 
see if we have completed the command pars- 
ing yet. Line 540 fetches the next character 
from the command string. Line 550 tests 
whether this one is also a digit or a decimal 
point. If so, add it to NUM$ and keep go- 
ing. If not, we must be at the end of the num- 
ber, so print a trailing blank on the screen 
in Line 560. 

Lines 570-580 append the string represen- 
tation of our number to the end of variable 
PARSED$, which contains the interpreted 
form of the command entered. Line 590 con- 
verts the string form of the number into its 
numeric equivalent in variable AMOUNT. 
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This number will be used during the evalua- 
tion step. 

Batter Up. Hit or Miss? 

Recall that the parsing process is inter- 
rupted whenever we hit either a blank or 
the end of the command string, provided 
that the variable WORD$ contains some- 
thing. Control is then passed to the subrou- 
tine at Line 600, where the contents of 
WORD$ are matched against the vocabu- 
lary list in VOCAB$ to see if we "know" 
the target word. But first. Line 610 extracts 
the final character from WORD$, and Line 
620 discards that character if it is an an- 
ticipated punctuation mark. This gets 
around the problem of the user entering a 
command ending with a period or other 
symbol, yet it allows the user the flexibili- 
ty of using punctuation in a natural kind 
of way in his commands. 

Lines 630-650 should be familiar from 
last month. POKE the length of the target 
word into location 1790, call the machine- 
language vocabulary searcher routine, and 
get the corresponding token for the word 
out of location 1791. If the token is zero, 
Line 660 concludes that we don't know the 
word and says to proceed with the next 
character in the command string. Other- 
wise, we have a hit! Line 670 prints the 
word on the screen. Lines 680-710 classify 
the word into one of the four vocabulary 
categories I mentioned earlier and assign 
the word's token value to the appropriate 
variable. Lines 720-740 add the identified 
word to the R\RSED$ variable and return 
to continue parsing the command string. 

Now We^re Cooking! 

Hey, we're two-thirds of the way home. 
So far, all we have for our trouble are a few 
variables whose values correspond to 
vocabulary-word tokens, and perhaps a 
string representing a number entered by the 
user as part of his command. Now we have 
to see if the pattern of variable values 
makes any sense. We need some more rules 
to determine what constitutes a valid com- 
mand. Try these on for size: 
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Large vocabularies, 

more complex 
command structures 
and more classes of 
vocabulary terms all 

will increase the 
required sophistica- 
tion of the evaluator 
part of the parser. 



1. Every command must include an in- 
strucfion. 

2. Every command must include a number. 

3. The PREHEAT instruction must be en- 
tered before the BAKE instruction. 

4. The PREHEAT instruction must speci- 
fy the oven temperature. 

5. The oven temperature must be between 
300° and 500°. 

6. The BAKE instruction is the final in- 
struction. 

7. The BAKE instruction must specify the 
cooking time. 

8. The cooking time must be between five 
minutes and ten hours. 

9. At least one ingredient must be added 
before baking. 

10. If an ingredient is specified, units also 
must be included. 

11. Exception to Rule 10: an ingredient 
whose token value is in the range 10 to 19 
does not require units. 

Whew! And these are just the ones that 
come to mind right away. Clearly, we need 
a lot of program code to test the numeric 
values of the key variables (INSTRUCT, 
UNITS, INGRED, TIMETEMP, and 
AMOUNT) to look for these conditions. 
Most real-life programs involving this sort 
of natural-language communication will 
have even more rules. Larger vocabularies, 
more complex command structures, and 
more classes of vocabulary terms all will 
increase the required sophistication of the 
evaluator part of the parser. You'll have to 
apply all of your error-checking skills when 
you design this section of your program. 

Line 800 processes the final contents of 
WORDS after control is transferred here 
when the end of the command string is 
reached. The rest of this section is some- 
what hamstrung by the unstructured nature 
of Atari BASIC. For consistency, I used the 
approach of testing for "not" each error 
condition, and branching around the error 
handling code if no problem was en- 
countered. 

For example. Line 810 handles Rule 1. 
If no instruction was found in the parsed 
command, the value of variable IN- 
STRUCT still will be zero. Otherwise, it 
will have the token value of the instruction 



entered. Line 810 says if we do have an 
instruction, go on to Line 830. Otherwise, 
Ml through to Line 820 where the error mes- 
sage is printed. The subroutine at Line 10000 
just waits for the user to press Return. After 
any such error, control returns to Line 160, 
where the command entry process begins 
again. 

In this way, we keep leapfrogging through 
the evaluator code, until we figure out if the 
command entered is okay and what to do 
about it. A couple of special cases are han- 
dled in separate sections of code. The subrou- 
tine to handle a BAKE (or COOK) instruction 
begins at Line 2000, and a subroutine for the 
PREHEAT instruction is in Lines 2500-2620. 
By now you should understand why we are 
using tokens to represent the vocabulary 
words, rather than doing complex string com- 
parisons for all these tests. 

Without going in detail through all the 
code, I'll just indicate the line numbers where 
some of the rules are being tested. (The limit 
of ten commands before baking isn't being 
enforced, but the program will probably 
crash if you exceed this.) 



Rule 1- 
Rule 2- 
Rule 3- 
Rule 4- 
Rule 5- 
Rule 7- 
Rule 8- 
Rule 9- 
Rule 10- 
Rule 11- 



Lines 810-820 
■Lines 830-840 
■Lines 2030-2040 
■Lines 2530-2540 
■Lines 2550-2580 
Lines 2050-2060 
Lines 2070-2110 
■Lines 2010-2020 
-Lines 910-920 
-Lines 890-900 



If the command turns out to be valid, the 
contents of variable PARSED$ are copied to 
the appropriate section of the string pseudo- 
array variable INSTR$ in Lines 950-960. 
This is so the accumulated instructions can 
be printed at the top of the screen to remind 
you of what has been entered already. 

And when you finally get your mixture into 
the oven, the program is over! The all- 
important END statement appears in Line 
2160. You mean that wasn't the first place you 
looked for it? Oh, well, think of it as an 
Easter egg hunt. 



Anytime you 

have a computer 

application that 

involves rules, 

concepts or patterns 

like we 're dealing 

with here, the term 

''artificial 

intelligence'' is 

sure to crop up. 



Torch Light. Assembler Boot. 

In your classic adventure game, which 
expects simple two-word commands, it's 
safe to insist that the first word be a verb 
and the second be a noun. "LIGHT 
TORCH" makes some sense then, and 
"TORCH LIGHT" does not. We can use 
the simplicity of the parser to impose some 
syntax restrictions on the kinds of com- 
mands that can be entered. 

However, the parser I've described in 
these two issues of Boot Camp is a "little 
more flexible in terms of the kinds of com- 
mands that can be entered. The downside 
is that we haven't placed any restrictions 
on syntax; command interpretation depends 
only upon the presence of keywords. A 
command like "COCOA TEASPOONS 11 
BEAT" is perfectly comprehensible to our 
parser. It contains an instruction (BEAT), 
a number (11), an ingredient (COCOA), 
and units suitable for an ingredient 
(TEASPOONS). The fact that no one 
above the age of two would utter such a 
jumbled sentence doesn't faze the parser 
one bit. Obviously, a really sophisticated 
natural-language processor program would 
include more rules to govern usage and 
structure, but that's a topic best left to the 
specialists for now. 

The AI Angle 

Notice how we had to set up a bunch of 
rules to determine what constitutes legiti- 
mate commands for this application area, 
which commands had to be entered prior 
to others, and so on. The assembler and 
BASIC programs shown here handle all of 
these tasks in a detailed, brute-force man- 
ner, with explicit procedures for every sin- 
gle case. In fact, most traditional computer 
languages are called "procedural" lan- 
guages, for this very reason. 

Anytime you have a computer applica- 
tion that involves rules, concepts or patterns 
like we're dealing with here, the term "ar- 
tificial intelligence" is sure to crop up. Two 
of the hot, current areas of interest in ar- 
tificial (computer-based) intelligence are 
rule-based systems and natural-language 
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processors. Our parser and komputerized 
kitchen examples clearly fit right into both 
of those realms. New programming lan- 
guages like PROLOG let you program the 
rules directly into the computer, rather than 
having to explicitly write all the nitty-gritty 
code to handle each rule the way we did 
today. However, most of these require some 
pretty hefty hardware to do a passable job. 
But even those of us stuck with our trusty 
old 8-bit Ataris might be impressed with 
the flexible human-computer dialogs that 
can be created using the ideas discussed in 
these two articles. The speed with which 
these simple programs interpret your com- 
mands is pretty remarkable. If you're am- 
bitious, you might try recoding the 
pre-processor into assembler to see if you 
enjoy much of an execution speed increase. 
And if you're a hardware type, let me know 
if you can get the computer to do the dish- 
es, too. 



LISTING 1: BASIC 



HG 1 REM Parser progran for Karl's Ko«put 

erized 
FT 2 REM Kitchen. Enter up to 18 instruc 

tions, 
FD 3 REM then bake it! 
HJ 4 REM 

GO 5 REM by Karl E. Uiegers 
HL 6 REM 

TG 8 REM 

DO ? REM 

lY le DIM UDCflB$(28e),TEM>S(46],H0RD$(28) 

,PflRSED5(3e) 
VP 28 DIM ML$(79),IMS(4e),ltUM$t6),flS(l),I 

H5TRS (388), PREHEATS (1) 
NL 38 OPEN Jt2,4,e,"D:Pfift5ER.0BJ" 
VT 48 FOR 1=1 TO 6!GET JJ2,ft:NEKT I 
PF 58 FOR 1=1 TO 75 
EE 68 GET U2,H 
Pft 78 MLS(I)=CHR$(fl) 
IH 86 NEXT I 
m 98 CLOSE 112 

ZO 188 OPEM a2,4,8,"D;U0CftB.DftT" 
NU 118 FOR 1=8 TO 6 
QH 128 INPUT tt2,TEMP$ 
YB 138 UOCftBS (1*48+1) =TEMPS 
Cft 148 NEXT I: CLOSE tt2 
MK 158 NIN5=e:IN5TR$="":PREHEATS="N":BftKE 

TEMP=8 
RB 157 REM 

AA 158 REM 

RX 159 REM 

UK 168 PRINT CHRS(125) 

KH 178 IF HIHS=8 THEN GOTO 285 

JK 188 FOR 1=1 TO NIKS 

LA 138 PRINT IN5TRS (38*1-29, 38*1) 

F5 288 NEXT I 

ZG 285 IF PREHEATS="Y" THEN PRINT "OUEN I 

5 PREHEATED TO ■';BAKETEMP;" DEGREES" 
BJ 218 PRINT iPRINT "Next instruction, pi 

ease: "-.PRINT 
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YJ 228 INPUT INS:PAR5EDS="":AM0UNT=e 

NH 238 IF INS="" THEN GOTO 218 

ER 248 IHGRED=8:INSTHUCT=e:TIMETEHP=8:UNI 

TS=8 

YE 388 I=l:MORDS= MAX=LEH(INS) :NUMS="" 

EO 318 IF DHAX THEN GOTO 888 

AH 328 A$=INS(I,I}:A=ASC(A$) 

KN 338 IF ASO" " THEN GOTO 368 

HQ 348 IF HORDS="" THEN 1=1+1 ! GOTO 318 

OY 358 G05UB 688 : 1=1+1 ■.WORDS="": GOTO 318 

ZD 368 IF A>47 AND A<58 THEN GOSUB 588:G0 

TO 318 
NN 378 IF A>96 AND A<123 THEN A$=CHRS(A-3 

2) 
RS 388 H0RD$(LEH(H0RD$)+1)=AS 
TG 398 1=1+1 -.GOTO 318 
SF 498 REN 

MP 499 REM 

SP see REM Subroutine to process nuMbers 

LA 581 REH 

DH 5e2 REH 

SJ 5ie NUH$(LEN(NUH$)+1)=A$: PRINT A$; 

ai 528 1=1+1 

IT 538 IF DMfiX THEN GOTO 578 

AN 548 flS=IN$(I,I) :A=A5C(A$) 

NF 558 IF (A>47 AND ft<58) OR flS="." THEN 

GOTO 518 
FY 560 PRINT " "i 

ZC 578 PARSED$(LEN(PAR5ED$)+1)=NUMS 
BJ 588 PARSED? (LENCPflR5EDS)+l)=" " 
QE 598 AMOUHT=UAL (HUMS): RETURN 
SG 598 REM 
PG 555 REM 



TO 688 REM Subroutine to search for curre 

nt word 
NR 681 REM 



QX 602 REM 

YA 618 flS=WORDStLENCWORD$)) 

m 629 IF AS="." OR ftS="," OR fi$="?" OR A 

S=";" OR AS="i" OR AS= THEN HORDS=W 

ORDS (1, LEH (WORDS) -1) : GOTO 618 
UF 638 POKE 175e,LEH(W0RDS) :POKE 1791,8 
J J 648 X=USR(ADR{HL$),ADR(U0CABS),ADR(HOR 

DS)) 
IJ 658 H=PEEK(1751) 
HS 660 IF X=0 THEN RETURN 
Q5 670 PRINT WORDS;" "; 
DE 660 IF X<2e THEN IHGRED=X 
10 690 IF X>19 AMD X<38 THEN IN5TRUCT=X 
HF 760 IF X>25 AND X<4G THEN TIMETEMP=H 
lA 718 IF X>35 AND X<5e THEN UNITS=X 
OY 720 PARSEDS{LEN(PARSED$)+1)=H0RD$ 
BB 730 PARSEDS(LEH(PAfi5ED$)+l)=" " 
ZL 748 RETURN 
RZ 755 REM 

AI 796 REM 

OJ 797 REM Evaluator Routine 

AO 798 REM 

SL 799 REM 

XI 888 IF WORDSO"" THEN GOSUB 608 

UB 818 IF INSTRUCT>8 THEN GOTO 838 

IS 828 ? :? :? "Please include an instruc 

tion.":GOSUB 180ee:G0T0 168 
MK 838 IF AMOUHT>0 THEN GOTO 858 
BI 848 ? :? :? "Please include a nuHeric 

aMOUnt.": GOSUB 18888; GOTO 160 
LT 850 IF IHSTRUCT=24 THEN GOSUB 2880:GOT 

160 
RH 868 IF IN5TRUCT=23 THEN GOSUB 2588: GOT 

160 
DI 878 IF IHGRED>0 THEN SOTO 898 
GI 888 ? :? :? PARSEDS;" Of what??": GOSUB 

18008:6010 168 
m 898 IF IHGRED>9 AND UNIT5=8 THEN GOTO 

938 
RA 988 IF IHGRED>9 AND UNITS>8 THEN ? :? 

:? "Eggs don't have units!":GOSUB 1888 

8:G0T0 168 



PQ 916 IF UNIT5>0 THEM GOTO 930 

KC 928 ? ;? ;? "Please include sowe units 

.":G05UB 18000: GOTO 168 
LC 930 ? :? :? "Okay!!" 
m 940 mN5=MIH5+l:L=LEMtPftRSED$) 
CG 958 IF L<30 THEM FOR I=L TO 38:PflR5EDS 

(1,1): MEXT I 

KL 960 IN5TRSC3e«MIM5-29,30*MIM5)=PflR5ED$ 

MF 978 G05UB 18006:6010 160 

KU 1598 REM 

UE 1999 REM 

PN 2000 REM Sub to handle bake instructio 

n 
RG 2001 REM 

IF 2002 REM 

US 2016 IF NIMS>0 THEN GOTO 2638 

ZP 2028 ? :? ;? "You don't have anything 

to bake yet!":GOSUB 10OOO:RETURM 
ftM 2030 IF PREHEflTS="Y" THEN GOTO 2658 
UG 2046 ? :? :? "You need to preheat the 

oven first. ":GOSUB ie8e8:RETURN 
OM 2850 IF TIMETEMP>8 THEM GOTO 2078 
HF 2060 ? :? :? "Please include baking ti 

Me and units. ":GOSUB ieeO0:RETURN 
KM 2070 IF TIMETEMP:31 THEM flMOUMT=ftMOUHT 

»60 
Z5 2086 IF flM0UNT>=5 THEM GOTO 2180 
yH 2090 ? :? :? "Shortest legal cooking t 

iMe is 5 Hin.":GDSUB lOOOOlRETURM 
IZ 2106 IF flMOUMT<=600 THEM ujTO 2128 
GL 2110 ? :? :? "Longest legal cooking ti 

He is 10 hrs.":GOSUB lOO0e:RETURN 
CV 2120 ? :? :? "Okay!" 
MQ 2130 ? ;? "Your concoction is in the o 

ven," 
GU 2140 ? "and this progran is now finish 

ed." 



HK 2150 G05UB 10086 :PRIMT CHR${125) 

FI 2156 END 

KM 2498 REM 

EN 2499 REM 

CI 2508 REM Subroutine to preheat ouen 
CI 2561 REM 

IP 2582 REM 

HI 2516 IF PREHEflT$:"N" THEM GOTO 2538 

KM 2528 ? :? :? "The oven is already preh 

eated!":G05UB 16888 :RETURM 
OL 2530 IF TIMETEMP=33 THEM GOTO 2558 

"^ :' ;? "Include units for prehea 
;GOSUB ie8ee;RETURN 
UI 2556 IF flMOUNT>=380 THEN GOTO 2576 
OG 2568 ? :? :? "MiniMuw tenperature is 3 

88 degrees. ":G05UB 10088;RETURM 
KG 2578 IF AMOUNT <:58e THEN GOTO 2590 
TA 2566 ? :? ;? "MaxiHUH teMperature is 5 

60 deqrees.":GOSUB 10680: RETURN 
ET 2550 ? :'' ;? "Okay! !" 
OD 2600 PREHEflTS="Y" 
TH 2618 BAKETEMP=fiMOUMT 
BK 2628 bOSUB 18e88:RETURN 
RJ 3086 REM Handle unitless ingredients, 

like eggs 
LD 9998 REM 

HF 9999 REM 

UQ 10680 REM Sub to get RETURN press 

EX 10091 REM 

BM 10062 REM 

ZO 10818 POSITION 7,23 

AW 10820 PRINT 



EO 2548 
ting. 



Press RETURN to continue 



MI 10030 OPEN tJi.4,0,"K:" 

&K 10040 GET ttl,A 

II 10050 IF ft<>155 THEN GOTO 10040 

QP 10068 CLOSE ttl 

&Z 10678 RETURN 



C=l 



BOOT UP TO BIG SAVINGS! 

I YEAR FOR ONLY $28 

SAVE $ 1 9 OFF THE COVER PRICE 

1 YEAR WITH DISK OHVI $105 



COMPUTING 



SAVE TIME AND MONEY 
SUBSCRIBE TO ANALOG 

SAVE $19 OFF THE 
COVER PRICE WITH 
THE CONVENIENCE 
OF HAVING ANALOG 
DELIVERED DIRECT- 



LY TO YOUR DOOR 
BEFORE IT EVEN HITS 
THE NEWSSTANDS. 
GET THE MOST OUT 
OF YOUR COMPUTER 

SUBSCRIBE TO 

ANALOG 

TODAY 



D 1 YEAR @ $28 - SAVE $19 
FOREIGN - ADD $7 PER YEAR 

D 1 YEAR WITH DISK @ $105 

FOREIGN - ADD $15 PER YEAR 

D PAYMENT ENCLOSED D BILL ME 

CHARGE MY: D VISA D MC # 



MCNYY 
DCNYY 



EXPIRATION DATE SIGNATURE 

MONEY BACK ON ALL UNUSED PORTIONS OF SUBSCRIPTIONS IF NOT SATISFIED 



MAKE CHECK PAYABLE TO L F.P.. INC P.O. Box 16927, N. Hollywood, CA 91615. 
Your lirst issue will arrive in 6 TO 8 weeks 



Offer expires April 31, 1989. 



WATCH FOR IT! 



B&(1 . 

ComputerVisions 



3257 Kifer Road 
Santa Clara, CA 95051 
(408)749-1003 



A 



STORE HOURS 
TUE- FRI lOiim - 6pm 

SAT - lOani - 5pni 
CLOSED SUN- MON 



.^^ 800/L 

ENTERTAINM 

ACE OF ACES 

ALIANTS 


x/ 

EN' 

13 
26 

26 

35 

17 

26 

17 

31 

22 

26 

13 

8 

8 

17 

S 

17 

8 

7 

31 

26 

7 

26 

22 

13 
13 
13 
35 
26 


XE 

r 

50 
95 

95 
95 
95 
95 
95 
50 
50 
95 
50 
95 
95 
95 
95 
95 
95 
95 
50 
95 
95 
95 
50 

50 

50 

50 
.95 
.95 


SOFTWARE 

MUSIC 

MUSIC COMPENDIUM . . . 

MUSIC STUDIO 

BANK ST. MUSIC WRITER 
VIRTUOSO 


35.95 
31 .50 
13.50 
44.95 

s'G 

62. 95 
35.95 
19. 95 
19. 95 

PY 

30.00 
26.95 
35.95 
26.95 
12. 95 
24 .95 
12.95 
44 . 95 
26.95 
26.95 
29.95 
13.50 
35.95 
31.50 
12.95 
26.95 
17.95 
24.95 

22.50 
31 . 50 


ALT. REALITY: 


THE DUNGEON 

BEYOND CASTLE WOLF. . 
BISMARK 


PROGRAMMIP 


CASTLE WOLFENSTEIN. . 

GAUNTLET (64K) 

DEEPER DUNGEONS. .. 
GUNSLINGER 


LIGHTSPEED C 

LOGO 


PILOT 


PRODUCTIVn 

ATARIWRITER 


KARATEKA 


KICKSTART 


LAST V-8 


CELEBRITY COOKBOOK .. 
COMPUTE YOUR ROOTS . . 
COMPUTER GOURMET .... 

FAMILY FINANXE 

HOME ACCOUNTANT 

HOME FILING MANAGER . 
NEWSROOM (1C50 - 64K) 

NEWS STATION 

NEWS STA. COMPANION . 

PAPERCLIP K/SPELL 

POWER PRINT (1050) ... 

PUBLISHING PRO 

SYNCALC 


MOUSETRAP 


NINJA 


SARACEN 


SPEEDKING 


SPIDERMAN 


SPITFIRE 40 

STRIP POKER 

THE HULK 


TOMAHAWK (64K) 

TOP GUNNER 


SPORTS 

COMPUTER BASEBALL . . 
COMPUTER QUARTERBACK 

LEADERBOARD 

MICROLEAGUE BASEBALL 
TRACK S FIELD 


TIMEWISE 


VIDEO TITLESHOP (64K) 

GRAPHICS COMPANION 

VISICALC 


ART 

GRAPHICS MAGICIAN ... 
BLAZING PADDLES 



Jl C jS. r t r 

ALIEN AMBUSH 9. 95 

ARCHON 19. 95 

ASTEROIDS 15.95 

ATARI TENNIS 9. 95 

BALL BLAZER 19. 95 

BARNYARD BLASTER 

(REQ. LIGHT GUN) ... 24 . 95 

BATTLEZONE 19.95 

BLUE MAX 19. 95 

CENTIPEDE 14 . 95 

CHICKEN (400/800).... 9.95 

CLAIM JUMPER 9.95 

CLOUDBURST 9.95 

DAVIDS MIDNIGHT MAGIC 19.95 

DEFENDER 14.95 

DIG DUG 19. 95 

DONKEY KONG 5.00 

DONKEY KNOG JR 19.95 

E.T. PHONE HOME 9. 95 

FIGHT NIGHT (XL/XE) . . 19.95 

FINAL LEGACY 19.95 

FOOD FIGHT 19. 95 

FOOTBALL 14. 95 

FROGGER 14 .95 

FROGGER II 14. 95 

GALAXIAN 19. 95 

GATO 24 . 95 

GYRUSS 14 . 95 

HARDBALL 19. 95 

JOUST 19. 95 

JUNGLE HUNT 19.95 

LODE RUNNER 24. 95 

MILLIPEDE 19. 95 



MISSILE COMMAND 5.00 

MOON PATROL 19.95 

MR. COOL 9. 95 

MS. PAC MAN 19. 95 

ONE ON ONE (XL/XE)... 19.95 

PAC MAN 5.00 

PAST FINDER 24 . 95 

PENGO 19. 95 

POLE POSITION 19.95 

POPEYE 14 . 95 

Q-BERT 14.95 

QIX 14 . 95 

RESCUE ON FRACTALAS . 19.95 

RETURN OF THE JEDI .. 14.95 

ROBOTRON:2084 19.95 

SKY WRITER 14 . 95 

SLIME (400/800) 9. 95 

SPACE INVADERS 14.95 

STAR RAIDERS 5.00 

STAR RAIDERS II 19.95 

SUPER BREAKOUT 9.95 

WIZARD OF WOR 5.00 

ATARI XE GAME MACHINE 
$139.95 

Includes Missile Command, Flight 
Simulator II, Bug Hunt, light gun, 
joystick, BASIC programming 
language, and 64]c of memory with a 
detachable keyboard. Add a disk drive 
and printer for a complete home 
computer system! 



(^ 800IXLIXE 

^^ CHILDRENS EDUCATIONAL SOFTWARE 


B 


% 








\^ 




Oi—n CRS 




TINKITONK! 


^ 


S 


(age 3-6 on disk) 




(age 4-8 on dis)^) 






ERNIES MAGIC SHAPES 


8.95 


COUNT AND ADD 


8. 


95 


ASTROGROVER 


8.95 


BEING A SMART THINKER 


B 


95 


BIG BIRD SPEC. DELIVERY 

FISHER PRICE 

{pre-school on cartrid 


8.95 


ABC s 


8 

8 
R 


95 
95 
95 


SUBTRACTION 


SPELLING 


3e) 


DEVELOP THINKING SKILLS 8 


95 


MEMORY MANOR 


8.95 








LINKING LOGIC 


8.95 


SAVE $13.75!!! 

GET ALL 6 TINK! TONK! 

$39.95 






DANCE FANTASY 


8.95 


S FOF 


LOGIC LEVELS 


8.95 




SPINNAKER 










ALF IN THE COLOR CAVES 










(age 3-6- cartridge) . 


9.95 


VVEEKLEV READER 




ALPHABET ZOO 




(pre school - disk) 




(age 3-8 cartridge) . 


9.95 


STICKY BEAR SHAPES . . 


26 


95 


DELTA DRAWING 




STICKEY BEAR NUMBERS 


26 


9 5 


(age 4-up cartridge) 


9.95 


STICKEY BEAR ABC .... 


26 


95 


FACE MAKER 










(age 3-8 cartridge) . 


,9.95 


MATH ENCOUNTER .... 


9 


95 


HEY DIDDLE DIDDLE 










(age 3-10 disk) 


9.95 


HAY DEN 






KIDS ON KEYS 




(age 4-10 disk) 






(age 3-9 cartridge) . . 


9.95 


MICRO ADD/SUBTRACT .. 


9 


95 


KINDERCOMP 




MICRO SUBTRACTION . . . 


9 


95 


(age 3-8 cartridge) .. 


9.95 


MICRO DIVISION 


9 


.95 


STORY MACHINE 




(pre-school disk) 






(age 3-8 cartridge 
won't run on XL/XE) 


9.95 


SHAPE UP ! 


9 
9 


.95 
95 


MATCH UP ! 



SZJF^ER SJPJECT^ES \ 

fl RECONDITIONED ATARI MERCHANDISE |1 1 
^^1^ 30 DAY WARRANTY , ^^W\ 


ATARI 
TRACKBALL 

$9.95 

SPICE UP THE ACTION IN 
YOUR ARCADE GAMES!! 


BOOKS ONLY 

DE RE ATARI 10.00 
ATARIWRITER 10.00 
DOS 2.5 12.95 
BASIC REF. 5.00 
LOGO 10.00 
BOOKKEEPER 10.00 


ATARI 

SPACE ACE 

JOYSTICK 

$5.00 

GREAT GIFrS! 


400 (16K) 
COMPUTER 

$29.95 

48K UPGRADE KIT 
$25.00 


600XL 
COMPUTER 

16K - $49.95 
64K - $59.95 


800 (48K) 

COMPUTER 

$79.95 

INCLUDES BASIC 


820 4 COLUMN 
PRINTER - $39.95 


1020 COLOR 

PRINTER/PLOTTER 

$29.95 

40 COLUMNS WIDE 

INCLUDES PAPER AND 

COLOR PEN SET 


1030 MODEM 

WITH 

EXPRi:SSI 

$24.95 

GETOMJNETODAY! 


1010 PROGRAM 
RECORDER 
$29.95 


410 PROGRAM 
RECORDER - AS IS 
$9.95 (3 for $15) 


ATARI 

NUMERIC 

KEYPAD 

$7.95 

INCLUDES HANDLER 
DISK- 


ATARI 
BOOKKEEPER 

$14.95 - NO BOX 

(19.95 WITH KEYPAD) 

$24.95 - IN BOX 

(29.9S WITH KEYPAD) 


DISKETTE.S 
AS LOW AS 20 CENTS 

10 FOR «4.00 

100 FOR $29.95 

1000 FOR $200 

MOST ARE UNNOTCHHD 

WITH OLD SOFTWARE 



SHIPPING INFORMATION - Prices do not include shipping and handling. Add $5.00 for small items ($8.00 Min. lor Canada). Add $8.00 for disk 
drive, Calif, res. include 7% sales lax. Mastercard and Visa accepted il your telephone is listed in your local phone directory. Orders may be pre-paid 
with money order, cashier check, or personal check. Personal checks are held for three weeks before order is processed. C.O.D orders are shipped 
via UPS and must be paid with cash, cashier check or money order, international and A PO orders must be pre-paid with cashier check or money 
order. $20.00 minimum on all orders. All sales are final - no refunds - prices are subject to change. Phone orders accepted TUESDAY THROUGIH 
FRIDAY from 10:00 am to 6:00 pm PST. 

We carry a complete line of ATARI products and have a large public domain library. Write or call for free 
catalogue. (408) 749-1003 TUE - FRI 10AM - 6 PM 



PRICES SUBJECT TO CHANGE WITHOUT NOTICE ■ ALL SALES ARE FINAL 



CIRCLE #112 ON READER SERVICE CARD. 




By having the 
object appear 
behind some things 
and in front of 
others, we can 
easily create a 
realistic three- 
dimensional effect. 



by Craig Patchett 



Now that you have the PMG basics down, 
it's time to move forward and take a look at 
some enhancements. The first enhancement 
that we'll look at is a really easy one to do. 
What it does is allow you to make each or 
all of the players wider. Unfortunately, this 
doesn't mean that you get more dots to use. 
Instead, the dots that you already have are 
made wider, so it's really the equivalent of 
changing graphics modes. In any case, loca- 
tions 53256, 53257, 53258, and 53259 are 
used to adjust the width of the players, and 
location 53260 is used for the missiles. Here's 
how they're used: 

PLAYER n: 
POKE 53256+n,0 for normal width 
POKE 53256+n,l for double width 
POKE 53256+n,3 for quadruple width 

MISSILE 0: 
POKE 53260,0 for normal 
1 for double 

3 for quadruple 

MISSILE 1: 
POKE 53260,0 for normal 

4 for double 

12 for quadruple 
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MISSILE 2: 
POKE 53260,0 for normal 
16 for double 
48 for quadruple 

MISSILE 3: 
POKE 53260,0 for normal 
64 for double 
192 for quadruple 

In case you're wondering about the mis- 
siles, you should pick the value you want for 
each missile, add those four values together, 
then POKE the result into location 53260. So, 
for example, if you wanted Missile to be 
normal, 1 and 2 to be double, and 3 to be 
quadruple, you would use the command 
POKE 53260,212 (0 -1-4 -hI6 -1-192). Try adding 
the following line to our last spaceship pro- 
gram from last month: 

155 POKE 53256,1 

Now change it to: 

195 POKE 53256,3 

Finally, get rid of it or change it to: 
135 POKE 53256,9 
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Now you've seen the effect of changing the 
width of the players. 

Way, way back, I said that PMG was use- 
ful for moving an object around the screen 
without affecting the background. What I 
didn't mention was that the background could 
either be behind the object or in front of it. 
What difference does it make? Well, by hav- 
ing the object appear behind some things and 
in front of others, we can easily create a 
realistic three-dimensional effect. The ques- 
tion is. Just how do we go about telling the 
computer what to put in front and what to 
put behind? It's really quite simple, through 
the use of location 623. Atari lets you mix 
things up to four different ways with this lo- 
cation, as summarized below: 



GPRIOR (623) 
HIGH 1 2 4 



P 
R 
I 

O 
R 
I 
T 
Y 





PO 


PO 


1 

PFO 


PFO 




PI 


PI 


PFl 


PFl 




P2 


PFO 


PF2 


PO 




P3 


PFl 


PF3 


PI 




PFO 


PF2 


PO 


P2 




PFl 


PF3 


PI 


P3 




PF2 


P2 


P2 


PF2 




PF3 


P3 


P3 


PF3 




BAK 


BAK 


BAK 


BAK 



LOW 
P = PLAYER # 
PF = PLAYFIELD # 
BAK = BACKGROUND 

What does all this mean? At the top of the 
chart you'll see the numbers 1, 2, 4 and 8. 
These correspond to the values we POKE into 
location 623. Under these numbers are a list 
of PFs and Ps, which correspond to the vari- 
ous playfields and players (remember that 
playfields are anything on the screen that isn't 
a player or a missile). Anything in this list 
will appear in front of whatever is below it 
in the list if the two are on the screen at the 
same place. So, for example, if we were to 
POKE 623 with a 1, Player would appear 
in front of Player 1, which would appear in 



front of Player 2, which would appear in front 
of Player 3, which would appear in front of 
Play field 0, and so forth. 

Time for an example. Let's set location 623 
to 8, which puts the players in front of some 
of the playfield colors, and behind the rest. 
This will give us a chance to see the three- 
dimensional effect mentioned earlier. We'll 
then draw some simple playfield and move 
our spaceship around in it. Make sure you 
add the following program lines to the last 
spaceship program you typed in last month: 



i3e GRftPHIC5 19 

131 5ETC0L0R e,8,2:5ETC0L 
OR 1,B,4;5ETC0L0R 2,9,6 

132 FOR REG=1 TO 3: COLOR 
REG:5T=2+19*REG-15«tREG=3 
) 

133 FOR X=B TO 4: PLOT 5T+ 
X,4+tREG=3);DRflWT0 5T+X,1 
9-(REG=3):HEKT K 

134 HEKT REG 

135 POKE 623,8 



This kind of effect should get your crea- 
tive juices running; now you can move space- 
ships behind planets, or make people appear 
to walk into houses, with hardly any effort 
at all! 

Here's something that you may want to play 
around with, but which I won't really go into 
too deeply. If we POKE 623 with any com- 
bination of 1, 2, 4 and 8 (such as 3, 7, etc.), 
then the computer will get confused every 
now and then as to what should be in front 
of what, and will just give up and make the 
confused region black. 

To see an example of this, change Line 195 
to: 

195 POKE 623,15 

There's even more that can be done with 
location 623. First of all, we mentioned be- 
fore that the four missiles can be combined 
to make a fifth player. All we have to do is 
position them alongside each other and move 
them all together, right? Not quite, since each 
missile is a different color. As you might have 
guessed, location 623 takes care of this also. 
We simply add 16 to whatever value we're 



POKEing into 623 and the four missiles will 
each take the color of Playfield 3 (as in SET- 
COLOR 3). But that's not all. You also get 
this beautiful set of kitchen knives. Oops, 
wrong spiel! 

There is one more feature of location 623, 
however, which allows us to add two more 
colors to the screen when using PMG. If we 
add 32 to the value we're POKEing into lo- 
cation 623, then when Players and 1 over- 
lap, there will be a new color in the parts that 
overlap. The same is true for Players 2 and 
3, but not for any other combinations. 

Where do these new colors come from? 
The Atari does what is called a "logical OR" 
of the colors of the two players. This just 
means that it takes the binary representation 
of each of the two colors and blends them 
together to get a third. We'll see an example 
of this later in the chapter, along with a bet- 
ter explanation of exactly what the OR does. 

So, what do you think so far? Pretty im- 
pressed by PMG? Believe it or not, there's 
still more to come. I'm sure that by now 
you've realized how convenient it is to move 
an object around the screen without having 
to worry about what's behind or in front of 
it. But sometimes you need to know whether 
two or more things are in the same place. For 
example, what if there were two spaceships 
on the screen and they ran into each other? 
We would probably want to know about it so 
that we could make them bounce off each 
other. Or what if we were moving people 
around the screen and they ran into a wall? 
We wouldn't want them to just walk right 
through it (unless they were ghosts!). So, 
what it comes down to is that we need some 
way of knowing when collisions occur be- 
tween objects on the screen. 

Fortunately, Atari supplies us with a whole 
bunch of memory locations to do just that. 
Before we start to look at them, however, we 
should warn you that they may look familiar. 
Why? Because we already used them to do 
other things. How is it that we come to have 
memory locations that do two different 
things? Well, these particular memory loca- 
tions are in a special part of memory called 
the GTIA chip. The GTIA chip is different 
than regular memory in that the locations in 
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it have different meanings depending on 
whether you POKE or PEEK them. That 
means that we can POKE a location to set 
a player's width, and then PEEK it to see 
whether a missile has collided with a player. 
This can be a little strange at first, but you 
get used to it after a while. 

Sometimes. 

Detecting collisions between the various 
objects on the screen is not the easiest thing 
to do, although it will seem easy at first. 

Before I discourage you though, let's take 
a look at the locations that are involved. Ba- 
sically, there are 16 memory locations that 
keep track of who has hit whom, and one lo- 
cation that clears these 16. Here's a complete 
list of which does what: 



53259: M3PL- 




53248: MOPF- Detects 
between 
and the 

53249: MIPF- Detects 
between 
and the 

53250: M2PF- Detects 
between 
and the 

53251: M3PF- Detects 
between 
and the 



53252: POPF- 



53253: PIPF- 



53254: P2PF- 



53255: P3PF— 



Detects 
between 
and the 
Detects 
between 
and the 
Detects 
between 
and the 
Detects 
between 
and the 



collisions 

Missile 
playfield. 
collisions 

Missile 1 
playfield. 
collisions 

Missile 2 
playfield. 
collisions 

Missile 3 
playfield. 

collisions 

Player 
playfield. 
collisions 

Player 1 
playfield. 
collisions 

Player 2 
playfield. 
collisions 

Player 3 
playfield. 



53256: MOPL- 



53257: MIPL- 



53258: M2PL- 



■ Detects collisions 
between Missile 
and the players. 
Detects collisions 
between Missile 1 
and the players. 

■Detects collisions 
between Missile 2 
and the players. 



Detects collisions 
between Missile 3 
and the players. 



53260: POPL- Detects collisions 
between Player 
and other players. 

53261: PIPL— Detects collisions 
between Player 1 
and other players. 

53262: P2PL— Detects collisions 
between Player 2 
and other players. 

53263: P3PL— Detects collisions 
between Player 3 
and other players. 

53278: HITCLR-Sets all of the above 
locations to zero 
(clears all collisions). 

Right now you should be wondering how 
one location can detect up to four possible 
collisions, since that's what each of the col- 
lision locations does. For example, MOPF 
(location 53248) detects collisions between 
Missile and the playfield. But, as we know, 
there are four types of playfields (five if we 
include the background, which we won't 
here). How do we use one memory locafion 
to record four different collisions? Quite sim- 
ply, we use the lower four bits, one for each 
type of playfield. Since a collision has either 
occurred or not occurred, one bit is all we 
need for it. This diagram should help clarify 
things a little: 



7 6 5 4 



1 



Bit # 



not used 


PF3 


PF2 


PFl 


PFO 
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(set to 0) 

(In case you're wondering, PFn stands for 
Playfield n.) 

If one of these four bits is set (equal to 
one), then the corresponding collision has oc- 
curred. So, for example, if Missile had col- 
lided with Playfield 2, MOPF would have a 
binary value of 00000100, which corresponds 
to a decimal value of four. 

This same principle applies to all of the 
collision registers. For those registers that 
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keep track of collisions with players, the lay- 
out is as follows: 



7 6 5 4 3 



1 Bit # 



not used 


P3 


P2 


PI 


PO 



(set to 0) 

(Pn, of course, stands for Player n.) 
Now let's look at something that tends to 
trip people up a lot of the time. What would 
happen if, say. Missile collided with Play- 
field 2, and then passed over and collided 
with Playfield 0? Which of the following 
values would MOPF have? 

A 00000101 B 00000001 C 00000100 

The answer is A, because a collision is not 
cleared until you POKE any value into 
HITCLR at location 53278. That means that 
the collision registers will keep track of all 
collisions that have occurred since the last 
time a value was stored in HITCLR. So, make 
sure you remember to POKE HITCLR after 
you look at any of the collision registers 

A little side note before we look at an ex- 
ample. After the collision registers have been 
cleared, it takes the computer at least a six- 
tieth of a second to check for all collisions, 
and sometimes almost a thirtieth of a second. 
So what, right? Well, if you POKE HITCLR 
and then immediately check the collision 
registers, you may not get a proper value. 
What you want to do is the following every- 
time you use HITCLR: 

248 POKE 53278,6 -.POKE 28, 

e 

256 IF PEEK {29X2 THEM 11 
6 

You can use your own line numbers, of 
course. What these lines do is to clear the 
real-time clock at location 20, then wait for 
two-sixtieths of a second to pass before con- 
tinuing. This makes sure that the collision 
registers will have the correct values when 
you go to look at them. 

Try adding the following lines to the PMG 
program we've been putting together to see 
the collision registers at work. All they do 
is use POPF to set the pitch of sound register 
0. This makes the sound change as the play- 
er passes over different types of playfield. 
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Sometimes you 

need to know 

whether two or 

more things are in 

the same place. 

For example, what 

if there were two 

spaceships on the 

screen and they 

ran into each 

other? 



Notice how we clear the collision registers 
after each SOUND statement. 

Take out the POKE 53278,0 in Line 240 
and see what happens if we don't. 



230 SOUND e,ie«PEEK(53252 

J+58,2,8 

248 POKE 53278, 8:P0KE 28, 

8 

258 IF PEEK(28)<2 THEN 25 

8 

268 GOTO 238 



There is one more technical detail to cover. 
It has to do with double-line resolution and 
isn't really used that often, but you may want 
to know about it anyway. VDELAY, at loca- 
tion 53276, allows you to move a double-line 
resolution player or missile down one scan 
line. "So what," you say? "I can do that by 
moving the data in memory." No, you can't, 
because the dots in double-line resolution are 
two scan lines high, not one. So, to help you 
get around that problem. Atari kindly sup- 
plied VDELAY. Each bit in VDELAY con- 
trols a player or missile. If a bit is on, then 
the corresponding player/missile is moved 
down one scan line. If it's off, then the play- 
er/missile is in its regular position. 

Here's the way the bits are assigned: 

765432 10 Bit # 



P3 


P2 


PI 


PO 


M3 


M2 


Ml 


MO 



Let's suppose you want to move a player 
down one scan line at a time. Here's what you 
would do: 

1 . Set the appropriate bit to one. 

2 . Move the data down one and set the bit 
back to zero. 

3 . Go back to Step 1. 

To move the player up (one scan line): 

1 . Move the data up one and set the ap- 
propriate bit to one. 

2 . Set the bit back to zero. 

3 . Go back to Step 1. 

Remember that you would only do this if 
you were using double-line resolution and 
wanted to move one scan line at a time in- 
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stead of two. For absolutely smooth motion, 
most people can't see the difference. 

Now that you know how to handle PMG, 
we can take a different approach and look at 
it from the outside. In other words, we can 
try and answer a few questions about it, such 
as, "When and where do we use PMG?" 
Let's do this by considering its advantages and 
disadvantages. PMG does have both, and it's 
important to be aware of them. We've already 
discussed most of the advantages, but I'll 
summarize them below: 

PMG Advantages 

1. Independent movement with priorities. 

2. Ability to detect collisions. 

3. Easy movement and animation. 

Believe it or not, that's about it. The big- 
gest advantage, of course, is that PMG allows 
us to move objects around the screen without 
disturbing what's already there. The other 
two major advantages, while still important, 
are somewhat secondary to this. 

Let's move on to the disadvantages: 

PMG Disadvantages 

1 . Only five players at once. 

2 . Only one color per player. 

3 . Each player is only eight dots wide. 

4 . Takes a lot of code to exploit the capa- 
bilities. 

The big disadvantage is that there are only 
five players. Why? Because we can easily use 
two or more players to get more than one 
color, or to create a wider object. For exam- 
ple, we could draw a face in one player and 
give it a flesh color, then draw a hat in 
another player and color it white. If we then 
position these two players in the same place 
on the screen, we have a two-color head. 
Similarly, we can draw half an object in one 
player, the other half in another, and then po- 
sition the two side-by-side to get an object 
that's sixteen dots wide instead of eight. 

But there's nothing we can do to get more 
than five players. Well, that's not quite true. 
It is possible to use machine language to 
"cut" the players up so that there are as many 
as 940 objects at once (each only one dot high 
though)! The only problem with this is that 
you can only have five of these objects on 
each scan line at any given time. If you're in- 
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terested in how this is done, take a look at 
the chapter on display-list interrupts. 

We've now seen all the good things and all 
the bad things about PMG, and should be 
ready to decide when to use it and when not 
to. The big clue comes from the advantage 
list. After all, there's no point in going out 
of your way to do something unless there's 
an advantage in doing so, right? The main 
thing that should cause your mind to click and 
think, "Hey, I should use PMG here," is the 
need to move something over or under some- 
thing else. Once you're in this kind of situa- 
tion, PMG is really the only way out, at least 
from BASIC. Actually, once you're in a situ- 
ation where anything needs to be moved, 
period, assuming it's small enough to fit in 
a player (or up to five players side by side), 
use PMG. The other time PMG comes in 
handy is when you need to add an extra color 
or two. After all, PMG does come with four 
extra colors, and nobody said a player had 
to move! 

Would you believe that we're still not 
through? Although it's true that we've now 
covered all the technical details, there's a lot 
more to life than just the technical. Right now 
you know enough about PMG to get players 
up on the screen and moving around. Sim- 
ple players, that is. What if you wanted a play- 
er to do more than just move, though? What 
if, for example, you wanted to make a robot 
walk through a tunnel instead of just move 
through it? In other words, how do you go 
about animating a player? 

Actually, it's really not that hard. We've al- 
ready seen how to animate using characters, 
by replacing a character with another that's 
slightly different. We can use the same tech- 
nique with PMG, by storing different versions 
in different players and then switching be- 
tween these versions. That's the easiest way, 
but it uses a lot of players. Another way is 
to keep redrawing one player with the differ- 
ent versions. This method is preferable, but 
it's too slow from BASIC. 

So what? Remember the machine language 
routine MOVMEM from earlier? Well, 
there's no reason why we can't use it again 
here. The following program will take a robot 
and make him walk. 

We'll store the player data in strings so we 
know where to find it (using BASIC'S ADR 
instruction), then use MOVMEM to shift it 
around. 
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Anyway, try it out for yourself and then 
we'll take a closer look at exactly what's go- 
ing on: Type NEW, then: 



lie DIM CHftR5ET$(152) 

128 G05UB 296 

136 DIM M0«MEM5(41);F0R X 

:l TO 41; READ ftlMOVMEMStK 

,X)=CHR$tft):KEXT X 

148 DIM MEMCLRS(36):F0R X 

=1 TO 36: READ A:HEHCLR$(X 

,X)=CHHS(ft):MEXT X 

156 PB=PEEKt740J-8:POKE 1 

06, PB-8 : PMBfl5E=PB«256 ; GRft 

PHIC5 23 

155 P05=38 

160 5ETC0L0R 4,2,ie:5ETC0 

LOR 2,14,2;5ETC0L0R 1,14, 

4:5ETC0L0R 6,14,6 

178 X=USRtflDR(MEMCLRS),PM 

BA5E+768,1279):P0KE 54279 

,PB:P0KE 53277, 3:P0KE 623 

,8:P0KE 559,62 

186 COLOR llPLOT 99,64:DR 

OWTO 99,41:DRftHT0 72,41:P 

05ITI0M 72,64:P0KE 765,1: 

XIO 18,tt6,e,8,"5:" 

198 COLOR 2:PL0T 98,4e:DR 

AWTO 85,32:0RftMT0 63,32:P 

05ITI0N 71,46:P0KE 765,2: 

XIO 18,tt6,6,8,"5:" 

268 COLOR 3:PL0T 63,33:P0 

SITION 63,51:P0KE 765. 3:X 

10 18,tt6,6,8."5:" 

264 POKE 7e4,15:P0KE 785, 
15;P0KE 70b.l5:POKE 797,1 
5 

265 FOR Z-B TO 2 

216 FOR X=e TO 2:Y=U5B£flD 

R CMOUMEMS) , ADR (CHflR5ET$) + 

8+Z*48+X«16,PMBASE+1146+8 

»X,7) 

228 Y=U5R(ADR(M0UMEMS),AD 

R (CHAR5ETS) +16+Z«48+X*16, 

PMBA5E+1462+8»X,7):MEXT X 

238 P05=P05+2+2«(Z=2):IF 

P0S>225 THEH P05=38 

246 POKE 53248, P05;P0KE 5 

3249, P05+8: NEXT ZrGOTO 20 

5 

298 CHAR5ET$ tl, 76) :"yff »V 





J.>XP8-lfi0aBB0 



RETURN 

460 DATA 104,164,133,207, 

164, 133, 266, 184, 133, 269, 1 

84,133,268,164,176,168,25 

5,138,268,2,184,168,177,2 

86,145 

416 DATA 288,136,192,255, 

268.247,230,207,230,269,2 

62,224,255,268,233,96 

428 DATA 104,164,133,264, 

104, 133, 203, 164, 178, 169, 6 

,168,255,224,8,268,4,104, 

168,169,8,145,283,136,192 

436 DATA 255,268,249,230, 

204,202,224,255,208,234,9 

6 
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It is possible to use 
machine language 

to ''cut" the 

players up so that 

there are as many 

as 940 objects at 

once! 



The following program will create Lines 
290 and 300 for you. RUN it and then move 
the cursor up to the two lines it prints out and 
ENTER them. Then get rid of the original 
program (or LIST Lines 290 and 300 to disk, 
type NEW, and ENTER them back in). 



100 DIM CHAR5ETS(152) 
110 FOR CHAR^l TO 152:REA 
D DAT:CHARSET$(CHAR,CHAR) 
=CHR$ (DAT): NEXT CHAR 
120 FOR LINE=8 TO 1 
130 5TART=LIHE«76+1: PRINT 
296tl8*LINE;" CHAR5ET$C" 
; 5TART;", "; 5TART+75; ") =■■; 
146 PRINT CHR$(34); 
156 FOR CHAR=e TO 75:PRIN 
T CHR$(27)jCHAR5ETS(5TART 
+CHAR,5TART+CHAR);:NEXT C 
HAR 

160 PRINT CHR$(34} 
176 NEXT LINE 
1008 DATA 8,8,8,8,6,8,6,8 
,8,3,5,11,11,11,5,3,6,246 
,232,212,244,132,232,240, 
4,9,11,19,19,17 
1010 DATA 16,31,16,200,26 
6,136,200,266,8,248,1,3,7 
,14,28,56,60,60,128,192,1 
92,224,96,112,68,60,7,11, 
23,23 

1028 DATA 23,11,7,8,224,2 
88,168,232,8,288,224,16,9 
,17,17,17,16,16,31,3,288. 
200, 288, 232, 232, 8, 248, 192 
,3,3 

1636 DATA 15,62,128,112,5 
6,24,192,192,192,192,192, 
192,246,240,7,11,23,23,23 
,11,7,8,224,268,168,232,8 
,268,224,16 

1046 DATA 9,9,17,16,16,16 
,31,3,288,268,232,248,126 
,8,248,192,3,7,7,7,15,15, 
15,15,224,224,192,128,128 
,192,192,0 



Pretty neat, eh? Let's take a closer look at 
how it's all done. First of all, the different 
versions of the robot look something like 
Figure 1. 
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With that in mind, let's break down the pro- 
gram line by line. 

110: CHARSET$ will hold the data for our 
robot versions. 

120: First we set up CHARSET$. 

130-140: Sets up machine-language strings. 

150: Sets up player/missile memory. 

155: POS is the horizontal position of the 
robot. 



160-170: These lines should be familiar to 
you. 

180-200: These lines set up a "tunnel" on 
the screen. 

204: Set up the player colors. 

205: This loop counts off each version of the 
robot. 

210: We load the robot data in three sections: 
the head, body and legs. This is to al- 
low us to do multi-color players in the 
next example. The X loop counts off 
each section. The USR instruction in 
this line moves the current section from 
CHARSET$ to Player 0. 

220: This USR instruction moves the other 
side of the section to Player 1. 

230: We now update the horizontal position 
and move the robot back to the left side 
of the screen if it has moved off the 
right. 

240: Finally, we position the two players, 
move onto the next version, and then 
repeat the process all over again. 

290-300: This is the routine to set up 
CHARSET$. 

400-430: This is the data for MOVMEM$ 
and MEMCLR$. 

Not that difficult after all, was it? Now let's 
try something a little different: multi-color 
players. We mentioned earlier that we can 
combine two or more players to get more than 
one color, but there's actually a way to com- 
bine two players to get three colors instead 
of just two. 

How? GPRIOR, location 623, is used to 
set player/missile priorities; that we already 
know. We also know that it has other uses. 
One of these uses is to give the four missiles 
a common color. But the use that matters now 
is to create a third color when two players 
overlap. Specifically, when Players and 1 
or 2 and 3 overlap, then the area in which 
they overlap will be given a third color To 
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make this happen, simply add 32 to the value 
you're POKEing into GPRIOR (this is the 
equivalent of turning on bit 5). 

The question remains, though, as to what 
the third color will be. Actually, it depends 
on what colors the players are. What the com- 
puter will do is OR the two colors together. 
In English, this means that the computer will 
look at the binary representations of the two 
color values and create a third value with the 
bits turned on wherever at least one of the 
other two values has a bit turned on. That was 
English?! 

Let's look at a few examples: 

01010101 OR 10101010 = 11111111 
11010010 OR 10111010 = 11111010 

Now let's apply this new knowledge (even 
if we still don't quite understand it) to our 
robot friend. We'll divide him up so that the 
head and body are both in Players and 2, 
and the body and legs in Players 1 and 3. That 



way, the bodies will overlap to create the third 
color. Here are the necessary changes to the 
previous program: 



178 K=U5R£flDRtMEHCLRS],PMB 

flSE+768, 12795; POKE 54275, P 

BiPOKE 53277, 3:P0KE 623,48 

IPOKE 559,62 

284 POKE 784,154:P0KE 795. 

leilPOKE 786,154:P0KE 787. 

181 

210 FOR K=0 TO l:Y=U5RCftf>S 

(MOUMEMS) , ADR tCHftRSETS) +8+ 

Z*48+X*16,PM8fl5E+1146+8*K, 

7J 

228 Y=U5RCflORCMOMMEMS),ADR 

CCHflRSETS) +16+Z*48+K*16, PM 

Bft5E+1658+8*K,73:HEKT X 

226 FOR K=l TO 2:V=U5R£ftDR 
tMOUHEH$) , fl&R CCHfiR5ET$) +8+ 
Z*48+X*16,PMBfl5E+i482+8*X, 
75 

227 Y=U5RCAI>RCMCUMEMS5,flDR 
tCHflR5ETS5 +i6+Z«48+K*16 , PM 
Bfl5E+19i4+8*K,73:MEHT X 
240 POKE 53248, POSlPOKE 53 
258, P05+8: POKE 53249, POS:P 
OKE 53251, P05<-8SNEXT Z:GOT 
285 



Notice how the colors tend to flicker some- 
what. This is because we're not changing 
things quite fast enough. We can, however, 
clean it up a little bit by changing the colors 
so that there's less of a contrast. 
Try these changes: 



168 5ETC0L0R 4,2,9:5ETC0L 
OR 2,14,4:5ETC0L0R 1,14,6 
:5ETC0L0R 8,14,8 



Next month, we'll install player/missile 
graphics into the BASIC Invaders game we 
were working on. (Remember that game? It's 
been two months since we've looked at it!) 
Also, because it's been so long since we've 
worked on the games, next month's column 
will include the game's Usting up to this point. 
That'll help refresh your memory or help peo- 
ple catch up who may have missed the first 
few installments of Game Design Workshop. 
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ALPHA SYSTEMS is constantly innovating to provide more power 
tor your 8-bltAtarls 



Special OFFER 

The A[pha Systems HACK PACK contains Gil our 

tinest products tor making Back-up copies, 

Analyzing, Understanding and Protecting your 

Atari programs. It comes complete witti Atari 

Protection Tectiniques (Book and Disk I). Advonced Protection Tectiniques (Book and Disk II), Ttie 

Chipmunk, The Scanalyzer, The Impersonotor and Disk Pack 1 000. Worth over S 1 50 Get ihem all 

for the special price of Just $99.95 

Atari Software Protection Techniques Vol I & 11 

These Book and Disk packages detdi! the mast advanced copy protection methods in use today They 
guide you through the methods used to create the protection as vtfefl as the copying tectiniques to get 
around them. They include intormotlon on Phreoking • Hacking • On-line security • Black boxes • Sell- 
deslructing programs ■ Pirate bulletin board systems ■ Logic bombs • New piracy laws • Hardware 
data keys • Weok sectoring (Phantom, Fuzzy and unstoble sectors) • Overfilled tracks • CRC errors 
Bank Select cortridges and IVIUCH, MUCH MORE The disks include automatic program protectors. 
Protection Scanners, directory hiding and more. 
BOOK I and DISK I $24.95 

BOOK II (Advanced protection) and DISK II $24.95 
Special Offer, Order both sets for Only $39.95 

CHIPIVIUNK 

Automatic Disk Back-Up System. Moke peifectly running unpiotected back-up copies ot hundreds ot 
the most popular Atari programs. Chipmunk's sophisticated programming Automatically linds ond 
REMOVES copy proteclloti from most Atari programs. Back-up even heavily protected programs with 
ease, f^inally, a back-up system that needs no special hardware of skills 
(It you need g full list of what Chipmunk copies, call or write for our free calolog) $34.95 






PARROT II 

An All New Parrot sound digitizer for your Atari Parrot li is a 
sophisticated new hardware device that plugs into your joystick 
port. Parrot ll has two inputs. One for a microphone and one for a 
powered source such os a tape player, radio or Cornoact Disk. 
The Poweilul Parrot I! software lets you record sounds into your computer and play thern back on any 
Atori. Pairot II turns you; computers keyboard into a musical instrument with nine different sounds 
covering ffiree octaves each. The sounds con be anything, a dogs bark, a piano, a complete drum 
set, a symphony or your own voice. 

Parrot II lots you modify tlie sounds on a graphic display to create brand new sounds and special 
effects. Best of all, the sounds and voices con be put into your own programs thot con be used on 
ony standard Atori. Explore the woricJ of digital sound and music. ONLY $59.95 
Pre-Recorded Sound Disk More pre-recorded sourids for Parrot $4.95 
RARROT ir Demo Disk (Does nor require Pofrof to run) $5.00 



POP-N-ROCKER 



Sconalyzer Automatically scon & analyze commercial programs. Unlock programming secrets and 
learn from the masters $29.95 

Impersonator Cartridge to Disk back up system. Creole running back-up copies of any cartridge 
^l^ ffrt (up,tol6K) $29.95 

tJl5^ CHEAT 

Get more trom your games with CHEAT Tired of spending days trying to beat a game? Tired of getting 
stuck just when you need onoflier life? Cheot is on innovative new product ;hat gives you the chance 
you need to beat your favorite games. Cheat works with hundreds of Atari games to give you 
unlimited lives or power. End the frustration and get hours more enjoyment from your games. {Call or 
write Alpha Systems for our free cotalog with a full list of the progroms that work with Ctieot) ONLY $24.95 

BASIC TURBOCHARGER 

NOW tor the first time a BASIC programmer con get the power, flexibility and incredible speed of 
machine language. BASIC TURBOCHARGER is a book and disk package that contoins over 1 50 
ready to use machine language routines. Complete instructions show how to odd them to your own 
BASIC programs to get these features and more; • Smooth Scrolling • Player/Missile control ■ Load & 
Sove Picture files • Sorting and Searching • Special Effects Graphics • Incredible Speed • l^uch, Much 
fvlore • Over 1 50 programs You've heard of the power of Assembler, now harness it for your own 
needs, ^oaoh 

SiS 216-374-7469 




GIANT WALL SIZED POSTERS. 




tost paced, multi-pioyer trivia gome that mixes questions 

With real songs (digitized 
with Parrot). Be fhe fifst to identify the songs and answer the music trivia questions. Pop-N-Rocker 
comes with three data disks and lets you add new questions so it will never get old. You can use o 
Panof Sound digitizer to add new songs loo! Use any kind of music from Rock to Classical to 
Nursery Rhymes. A new concept in entertainment and a perlect add-on for Parrot. $24.95 

COMPUTEREYES & MAGNIPRINT II + 

Turn your computer into o digital portroit studio. This complete pockoge lets | 

you copture, save & print digital images from your Video Camera, VCR 

or TV. COMPUTEREYES hardware piugs directly into your ]oystick pons for 

easy use Pnnt your picture on a 6 foot poster $119.95 

ComputerEyes camera system 

Comes complete with everything above, plus a block and white video , ^ ^t 

camera and connecting coble. $329.95 tll^mt^mmk 

Graphics 9 Software - Add a new dimension to your COMPUTEREYES 

pictures captures images in 1 6 shades of grey $12.00 

Magniprint 11 + 

Eosily the most powerful phnt program avoilable today Print graphics from almost any formot in 

hundreds of shapes, sizes, and shodes Supports color printing ond lets you create giant posters. 

Magniprint II + lets you stretch and squeeze, invert, add text, adjust shading and much more. 

Works with EPSON, NEC, Citoh, Panosonic, Gemini. Star, XMM801, and compatible pnnters. (850 

interface or equivalent required). 524.95 

Graphics Transformer 

Now you con combine the most powerful features of all your graphics programs. Create print shop 

icons from a Koala pad picture, from a photo digitized with CompufeiEyes, or any picture file. 

Grophics Transformer lets you Shrink, Enlarge and Merge pictures for unequoled flexibility $22.95 

YOUR ATARI COMES ALIVE 

SAVE MONEY Finolly on alternative to buying expensive computer add-ons. Your Alan Comes Alive 
shows you how to built them yourself. This 'How-To' book ond disk package gives you complete 
step by step instructions and progroms needed to built and control these exciting devices and MORE 
■ Light Pen • Light & Motor Controllers 'Alarm Systems • \A)ice Recognition • Environmental Sensors 
•Data Decoders • More than 1 50 pages \tour Atari Comes Alive $24.95 
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VISA & MASTERCARD, ORDER BY ALPHA SYSTEMS 1012 SKYIAND DRIVE MACEDONIA, OH 44056 FREE BONUS: DELUXE SPACE GAMES {3 games 

PHONE, OR SEND MONEY ORDER TO: on o disk) Fteo with any order ol 3 or morfi ilcms. Include S3.00 shp & tidlg (US Canada) Ohio res. odd 5 1/2% sales tax. 
Foreign orders add S8,00 shp & hidg. Colt or write lot free catalog, Customer Seivice Line (216) 467-5665 M-F 9-3, 
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continued from page 9 
the XF551, however.) 

Atari was thinking on their feet when they 
designed the XF551. Not only is it pleasant- 
ly quiet and fast, but the layout of the double- 
sided disk format is very convenient. For ex- 
ample, if you format a double-sided, double- 
density disk with SpartaDOS, MY-DOS, or 
even XE-DOS, everything is written to Side 
1 of the disk, including the entire disk direc- 
tory. Once the disk has over 180K of data 
stored on it, then Side 2 of the disk is writ- 
ten to. The advantage of this is that you can 
read all of the directory, and all files com- 
pletely stored on Side 1 on any single-sided 
drive capable of the same density, such as a 
US Doubled 1050. (The same holds true for 
double-sided, single-density disks.) 

Writing to Side 2 of the disk in the XF551 
has confused a lot of people. If a disk is for- 
matted as double-sided, then forget about it. 
The DOS will keep track of what is on which 
side. The disk always goes in the drive face 
side up. You never flip it to read the back- 
side, nor is it "written backwards" as many 
people fear. This confusion stems from the 
fact that we have been flipping disks for so 
long. If a disk is formatted single-sided, any 
density, on both sides (by a 1050 or 810 for 
example), it is the same as two completely 
separate disks. Each side has a complete 
directory and file set. If a disk is formatted 
double-sided, it is one disk made up of two 
sides, with only one directory for all files on 
both Sides 1 and 2. 

Because the XF551 refuses to format the 
flip side of a disk, this does not mean the 
XF551 cannot read and even write the flip 
side of disks already formatted this way. If 
you have a huge library of flippies, the XF551 
will be able to manage them with no 
problems. 

I have been using my XF551 for about six 
months now, with no significant problems. 
I have put SpartaDOS and SDX to good use, 
getting a full 360K out of every floppy 
without having to flip it all the time. This is 
ideal for storing large amounts of data, such 
as backing up a hard drive. My XF551 has 
trouble formatting some of my "plain label" 
diskettes, claiming that as many as two in ten 
are bad. However, nearly all of those "bad" 
disks formatted on my IBM PC -AT compat- 
ible computer with no problems. (Note: The 



PC can recognize bad sectors, remove them 
from the directory map, and still make a com- 
pletely usable diskette. On the Atari, one bad 
sector means the entire disk is bad, so far as 
the format function is concerned.) I have had 
absolutely no problems formatting brand- 
name diskettes such as Verbatim and Max- 
ell, however. The "plain label" disks which 
did format correcfly gave me no problems 
reading and writing later. 

If you have the disk version oi Flight Simu- 
lator II, or other commercial programs with 
similar copy-protection schemes, they will 
not run on the XF551. The XF551 runs at ex- 
acdy 300 RPM, while the 810 and 1050 
drivers hover close to 288 RPM. Some of the 
newer, more sophisticated copy-protection 
schemes use the disk speed, which they ex- 
pect to be 288, and refuse to run if it varies. 
It is ironic that Flight Simulator II comes in 
a cartridge with the XEGS, with the capa- 
bility of reading FSn scenery disks. However, 
the newest Atari 8-bit computer, the XEGS, 
cannot use the newest Atari disk-drive, the 
XF551, to read them! I have not had any sig- 
nificant problems with this different disk 
speed, and have not heard of any other pro- 
grams besides FSII reilising to run in the 
XF551. 

In summary, the new Atari XF551 is fast, 
quiet, and capable of 360K per diskette— no 
flips required (or allowed, for that matter). 
Until DOS-XE comes out, you will need 
SpartaDOS or MY-DOS to take full advan- 
tage of its storage capabilities. The power 
switch is at the rear, which is a real pain for 
users with a computer hutch. The XF551 can 
be fiissy about the quality of the diskettes you 
feed it. You may have occasional problems 
with copy-protection schemes, but it's doubt- 
ful. The "limitation" of not being able to for- 
mat flip sides of disks is actually a feature 
to help break you of old habits. Once you be- 
gin using double-sided, double-density disks, 
you will never want to format a flippy again. 

I can heartily recommend the XF551. It has 
no quirks, just a lot of end-user misunder- 
standings due to lackluster support from 
Atari. Use the XF551 with SpartaDOS or 
SDX for a high performance disk-drive pack- 
age, the perfect upgrade for your system from 
that ancient 810 disk-drive that's been gasp- 
ing, wheezing, and clunking along for too 
many years. PI 
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Color Set will 

produce a printed 

record of screens 

you compose or will 

allow you to jot 

down settings shown 

on the screen. 



continued on page 13 

POKE 710 = Screen color and intensity 
(0-238) 

POKE 712 = Border color and intensity 
(0-238) 

POKE 709 may be any even number from 
0-14 to change the text intensity. The formu- 
la for the value of POKE 710 and 712 is: 

Value = Color * 16+Intensity 

For example, SETCOLOR 4,7,4 is equiva- 
lent to POKE 712, 116. Both 710 and 712 may 
range in value from 0-238. 

Both statements are used in lines of BASIC 
code when you want to change a color 
parameter, as: 

120 SETCOLOR 2, 3, 8 
or 

120 POKE 710,56 

Once set, the colors will stay set until 
another SETCOLOR or POKE statement is 
executed, a GRAPHICS command is is- 
sued, or the computer is reset or rebooted. 

Eow the Program Works 

Lines 10-140 INITIALIZE 

The default values for the text, screen and 
border colors and intensity are set at Line 110. 
Feel free to alter these to customize your ver- 
sion of this program's default colors. Line 120 
dimensions variables for the 35-character 
printed comment (COM$), the 12 -character 
color (COL$) and the six-character text in- 
tensity (LINT$). Line 130 calls the screen- 
printing menu subroutine at Line 1170, then 
goes to the LETTERS module to await input. 

Lines 150-310 LETTERS module 

The LETTERS module reprints the screen- 
menu lines that say SCREEN and BORDER 
and their arrows, in regular type, in case it 
just arrived here from the SCREEN or the 
BORDER module, then prints LETTERS 
and its arrows in inverse video. It opens a 
channel to the keyboard at Line 220 and gets 
a character. If the input is an up or down ar- 
row, it increments or decrements the vari- 
able LINT that holds the text intensity, exe- 
cutes a new SETCOLOR statement, and 
reprints updated information on the screen. 

It uses POSITION statements to specify the 
exact X and Y coordinates to print at on the 
screen. Note that when the updated line is 
shorter (has fewer digits) than the line already 
on the screen, it avoids leaving the last digit 
of the old line on the screen by adding one 
blank character to the end of each print line 
at 230-260. Forced erasing by hanging extra 
blanks on the end of lines is a handy house- 
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hold hack. Lines 270 and 280 will send con- 
trol to the SCREEN or BORDER module, 
and Line 290 calls the PRINTOUT subrou- 
tine. On Return, or if an incorrect choice is 
entered. Line 300 sends control back to 220 
to await more input. Both upper and lower 
case choices are checked for. 

Lines 320-520 SCREEN module 

This module accomplishes the same tasks 
for screen color and intensity. 

Lines 530-730 BORDER module 

This module updates the border. 

Lines 740-860 PRINTOUT module 

This prompts for a printed comment, then 
prints the current settings to a printer using 
LPRINT statements. Line 810 sets a variable 
COL equal to the value of the screen color 
variable SCOL. The program goes to a 
subroutine at 950 where a color name is as- 
signed to the variable COL$ and printed at 
the end of the line on return. Line 830 does 
the same for BORDER. By using the vari- 
able COL and setting it equal to SCOL or 
BCOL, we can use the same subroutine for 
both modules. When printing is complete, the 
program goes to Line 1350 to reprint the bot- 
tom of the menu, and returns to the module 
it came from. 

Line 880-930 ERROR trapping 

Trying to print without having a printer on 
results in an error, normally crashing a pro- 
gram. Line 780 sets a TRAP statement for 
Line 890. If the printer is off and an error 
is generated, the program will go to Lme 890. 
This line uses a PEEK statement to check 
memory location 195 which holds the error 
code and checks to see if it's Error 138, 
"Device did not respond." If so, it prompts 
you to turn on the printer, goes to Line 1350 
to reprint the menu and returns to await in- 
put. This error trapping allows recovery 
whether a printer is present and turned on or 
not, without crashing the program. 

Lines 940-1140 COLOR subroutine 

This is a subroutine that assigns a name to 
the colors and text intensity. When finished, 
it returns to allow printing the names at the 
end of the print line. 

Lines 1160-1380 Screen menu 

These lines print the original screen menu 
and reprint the bottom portion when Line 
1350 is used. Line 1170 begins with a "Clear 
the screen" command generated by using 
Esc-Ctrl-fClear. POKE 752,1 turns off the 
cursor for a neat screen appearance. 
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Conclusion 

I hope you enjoy Color Set and use it to 
figure out new screen and text colors for your 
own programs. You can sit at the keyboard 
and create a number of attractive screens, 
labeling them and printing them out for fu- 
ture use. You may add comments like "Green 
on Black with Blue Border" or "Intro screen 
for Mailing List 3/21/87" or "Screen # 14" 
etc. To use them in your programs, simply 
put in the SETCOLOR or POKE statements 
as printed. The use of color can add a whole 
new dimension to your new or existing 
programs. 

Jackson Beebe is a health-care center 
director in Champaign-Urbana, Illinois. He 
has owned his 800XL (upgraded to 256K) 
since the fall of 1984. He teaches Introduc- 
tion to BASIC at Parkland College and is 
President of the Progressive Atari Comput- 
ing User Group (PAC) of central Illinois. He 
remains a die-hard fan of BASIC and Atari 
8-bit computers. 



LISTING 1: BASIC 



REM KKXKKKKKXMKKKKKXXMMKMKXKMMMMXK 
REM » COLOR SET » 
REM » by Jackson Beebe « 
REM * Copyright 1988 « 
REM » bg ANALOG COMputinq » 
REM KKKMKKXIiXXKMMXMXKMKXXKKMKMXKMM 

REM << Initialize S Screen Menu >> 
HEM < Change Defaults at Line 110 > 
REM LIMT=Ltr Int SCOL=Scpeen Col 
REM SINT-Scr Int BCOL^Bdr Col etc 

REM 

LINTzS : SCOL=0 : 5I«T=12 ; BCOL=? ; BIHT: 



R5 120 DIM COM$(35),C0L5{i2),LIMT5(6) 

W5 130 G05UB 1170: REM Print Menu 

QU 140 REM 

BW 150 REM << LETTERS Module >> 

JK 160 POSITION 2.11:? " SCREEN i";CHRSC 

27);CHR$(303 :" "jCHRS C2?) ;CHR5 C31) : 
BG 170 ? "!":CHR$C27):CHR$(28).:" ■■.:CHR${2 

7) ' CHR$ (253 •"!'•' 
LH 1S0 POSITION 2.15;? " BORDER !";CHRS( 

27) : CHR5 £30) ; " " ; CHRS t27) J CHR5 (3i) ; 
BK 150 ? "i";CHR$t2?);CHR$t23);" ";CHR$(2 

?);CHfi$(25):"i"; 

£0 200 POSITION 2,7;? " ■<*i»:H i": : POSIT 

ION 16.7:? CHR>£27);CHSSCi56): CHR5 

(27);CHR$(i57) 
Ru 210 RtM << Input choice >> 
EO 220 CLOSE Hl;OPEN ttl, 4,0/'K :": GET Jli.fl 
KE 230 IF LINT<14 AND A=45 THEN LIHT=LIHT 

+2;SETC0L0R 1,0,LINT:PCSITION 34,7:? L 

INT;" " 



HY 


10 


UA 


26 


UO 


30 


OH 


46 


ZF 


50 


IM 


55 


BP 


60 


LU 


70 


HZ 


89 


HY 


50 


QK 


leo 


PU 


110 



NO 240 IF A=45 THEN POSITION 38,5:? LINT: 

" ";;GfiTO 160 
JT 250 IF LINT>0 AND A=61 THEN LINT^LINT" 

2:SETC0L0R 1,0,LINT :POSITION 34,7:? LI 

NT"" " 
AE 260 IF a=6i THEN POSITION 30,5;? LINT: 

" ":GOTO 169 
X!i 270 IF A=83 OR h=115 THEN 338; REM Scr 
LA 280 IF A=66 OR A=58 THEN 540; REM Bdr 
5U 250 IF A=80 OR A=112 THEN GOSUB 750: RE 

M Prt 
JT 306 GOTO 220:REM Hrong Choice 
m 310 REM 

GB 320 REM << SCREEN HOdUle >> 
MR 330 POSITION 2,7:? " LETTERS ";P05ITI0 

N 16.7:? CHR$C27) :CHR$C28);" ■■;CHR$C27 

);CHRS£25) 
LH 348 POSITION 2,15:? " BORDER |":CHR$( 

27) ;CHft5C3e) ;" "JCHRSC27) ;CHR5C3i) ; 
BE 350 ? "i"jCHR$(27);CHR$C28) :" ";CHR$C2 

7);CHRS(25);"i"; 

TC 368 POSITION 2,11:? "E3DaO |":CHR$( 

27):CHR$tl58):" ";CHR>(27):CHRSti55) : 
QO 370 ? "i":CHRS{27):CHRS(156);" ":CHR>( 

27);CHR5£i57);"|" 
SF 380 REM << Input Choice >> 
FD 350 CLOSE 81:0PEN ttl. 4,0 ."K:":GET Jtl.A 
ZJ 400 IF SCOL>0 AND A=43 THEN SCOL=SCOL- 

l:SETCOLOR 2,SC0L,SINT:P0SITION 32,11: 

? SCOL:".";SINT;" " 
GI 410 IF A=43 THEN POSITION 30,13:? SCOL 

*16+SINT;" " 
QM 420 IF SC0L<14 AND A=42 THEN SCOL^SCOL 

+1:5ETC0L0R 2,5C0L,5INT:P0SITI0H 32,11 

;' SCOL'" "'SINT:" " 
GB 430 IF A=42'tHEn"p05ITI0N 38,13:? SCOL 

*16+SINT:" " 
10 440 IF SiNT<i4 AND A=45 THEN SINT=SINT 

+2: SETCOLOR 2, SCOL, SINT: POSITION 32,11 

:? SCOL:",":SINT:" " 
HM 456 IF A::45 THEN POSITION 30,13:? SCOL 

*16+SINT;" " 
NZ 460 IF SINT>0 AND A=61 THEN SINT=SINT- 

2:5ETC0L0R 2, SCOL, SINT: POSITION 32,11: 

? SCOL'" ""SINT:" " 
GS 470 IF 0=61 THEN POSITION 30.13:? SCOL 

W16+SINT;" " 
PU 480 IF A=76 OR A=108 THEN 160:REM Ltr 
LE 450 IF A=66 OR A=58 THEN 548: REM Bdr 
SG 500 IF A=80 OR A=112 THEN GOSUB 750: RE 

M Prt 
HG 510 GOTO 35e;REM Wrong choice 
QU 520 REM 

GK 530 REM << BORDER Module >> 
MU 540 POSITION 2,7:? " LETTERS ":POSITI0 

N 16,7;? CHR$(27);CHRSC28);" ";CHR$C27 

);CHRSC25) 
JM 550 POSITION 2,11:? " SCREEN i";CHR$( 

27) ; CHRS (30) ; " "; CHR$ (27) ; CHR$ (31) : 
BI 560 ? "1";CHRS{27);CHRS(28);" ";CHR5{2 

7);CHR5(25):"|"; 

yF 578 POSITION 2.15:? " ■:li]:liH!M |";CHR$( 

27); CHRS (158);" ":CHRS(27) :CHrJ(159) ; 
NU 580 ? "i";CHR5(27);CHRS(156);" ";CHRS( 

27) :CHR5£157);"|"; 
5J 550 HEM << Input Choice >> 
EO 600 CLOSE Jtl:OPEN ttl,4.8,"K;":GET 111, A 
MA 610 IF BCOL>0 AND A=43 THEN BCOL=BCOL- 
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1:5ETC0L0R 4,BC0L,BINT:P0SITI0M 32,15: 

? BCOL;" "'BIMT'" " 
MG 626 IF 6=43 THEM POSITION 30,17:? BCOL 

*16+BIMT;" " 
JL 630 IF BC0K14 AND ft=42 THEN BCOL^BCOL 

+l:5ETC0L0R 4,BC0L,BINT:P05ITION 32,15 

: ' BCOL'" "'BINT'" " 
LZ 640 IF fl:42'THEN'p05ITI0N 30,17:? BCOL 

«16+BINT;" " 
BN 650 IF BINK14 AND fl:::45 THEN BINT=BINT 

+2:5ETC0L0R 4,BCOL,BINT:P05ITION 32,15 

;? BCOL'" "'BINT'" " 
NK 660 IF ft:45'THEN'p05ITI0N 30,17:? BCOL 

«16+BINT;" " 
KQ 570 IF BINT>0 AND A=61 THEN BIHT-BINT- 

2:SETCOL0R 4, BCOL, BINT: POSITION 32,15: 

? BCOL'" ":BINT'" " 
HQ 680 IF'A=6i THEN POSITION 30,17:? BCOL 

»16+BINT;" " 
PV 690 IF A=76 OR A^lOB THEN 160:REM Ltr 
XO 700 IF A=83 OR A=115 THEN 330:REM Scr 
5K 718 IF A=80 OR A=112 THEN GOSUB 750:RE 

M Prt 
KT 720 GOTO 6e0:REM Wrong Choice 
QY 736 REM 

AH 740 REM << PRINTOUT Subroutine >> 
HV 750 POSITION 3,26:? "Add printed coMwe 

nt or push RETURN" 
LM 760 ? " I 

I"; 

AM 770 ? " l- 



-"":POSITION 2,21:INPUT COM$ 



NB 780 TRAP 896;LPRINT :LPRINT :LPRINT :L 

PRINT '4HHHHHHHHHHHHBHHHHHBHHHBHHHHW** 

KUKKKKXMK " 
GB 750 GOSUB 950;LPRINT :LPRINT " 

";COM$;LPRINT ;LPRINT " LETTERS - SET 

COLOR l,e,";LINT;" = "jLINTS 
WG 886 LPRINT " POKE 783. ";LI 

NT 
SY 818 COL=SCOL;GOSUB 9R8;LPRINT :LPRINT 

" SCREEN z 5ETCOL0R 2,"; 5C0L;". "; SIN 

T;" = ";COL$ 
MZ 820 LPRINT " POKE 710,";SCO 

L«16+5INT 
CK 830 C0L=BCOL:G0SUB 950:LPRINT ;LPRINT 

" BORDER = SETCOLOfl 4 .";BCOL;" ,";BIN 

T'" = "'COL$ 
PH 840 LPRINT " POKE 7i2.":BC0 

L»16+BINT 
FQ 850 LPRINT ; LPRINT " MKMMMMMKXMMKMXMKXX 

XMMKKMXXXXXMKXXMXXKKXK "; LPRINT :LPRINT 

:LPRINT 
BQ 860 GOTO 135e:REM Reset 
RH 878 REM 

KE 880 REM << Error >> 

UU 898 IF PEEK{195):138 THEN POSITION 2,2 
8:? " 

II 

MW 988 IF PEEK(195):i38 THEN POSITION 2,2 
1:? " TURN ON PRINTER AND PUSH RETURN 

ET 918 CLOSE ttl:OPEN »1, 4,8,"K:":GET «1,A 

HU 926 TRAP 48806; GOTO 1358: REM Reset 

RA 938 REM 

00 948 REM << COLOR Subroutine >> 

HO 958 IF COL=e THEN COLS="GRAY" 

JK 960 IF C0L=1 THEN COLS="G0LD" 

ZK 978 IF C0L=2 THEN C0L$="0RANGE" 



OH 988 IF C0L=3 THEN COLS="flED-OHANGE" 

HU 998 IF C0L=4 THEN COL$="PINK" 

FH 1886 IF C0L::5 THEM COLS="PIMK-PURPLE" 

OM 1810 IF C0L=6 THEN COLS:="PURPLE-BLUE" 

XI 1828 IF C0L=7 THEM COLS="DARK BLUE" 

GC 1838 IF C0L=8 THEN COLS="BLUE" 

GM 1949 IF C0L=9 THEN C0LS="LIGHT BLUE" 

JD 1958 IF C0L:19 THEN C0L$="TURQU0I5t" 

OW 1868 IF C0L=11 THEN C0LS="GREEM-BLUE" 

CM 1870 IF C0L=i2 THEN COLS="GREEN" 

HF 1080 IF C0L=13 THEN COL$="YELLOH-GREEN 

II 

W 1090 IF C0L=14 THEN C0LS="0RANGE-GREEN 

II 

PD 1160 IF C0L=15 THEN COLS="LIGHT ORANGE 

II 

AM 1118 IF LINT<6 THEN LIHTS="DARK" 

HO 1120 IF LINT>4 AND LINK18 THEN LINT5 = 
"MEDIUM" 

UH 1138 IF LINT>8 THEN LINT$="BRIGHT" 

AN 1140 RETURN 

IN 1150 HEM 

MS 1168 REM << Screen Menu Subroutine >> 

NO 1170 ? "H":POKE 82,6:P0KE 752.1:5ETC0L 
OR 1,0,LINT:SETCOLOR 2,5C0L,5iNT:5ETC0 
LOR 4, BCOL. BIMT 

MH 1186 POSITION 8,1:? " .^EOBlIIEBflnE 



Jackson Beebe 



Use L,S,B keys to sele 
ITEM COLOR IMTEM, 5E 



AM 1190 ? :? " 

Ct itew " 
WA 1288 ? :? " 

TTIMG" 
OD 1218 ? " I — 

1" 

XS 1228 ? " I ill SETCOLOR 

1,B,";LINT:P05ITI0N 38,7:? "j" 
NK 1238 ? " ' 1 1 1 



T" 



T" 



L5 1248 POSITION 19,9:? "| POKE 7e9,";LIN 

T;:POSITIOH 38,9:? "I" 
IM 1250 ? " I 1 1 i 



NO 1260 ? " I III SETCOLOR 
2,";SC0L.:",";5IMT;:P0SITI0M 38,11:? "| 



MH 1278 ? " 



MB 1280 POSITION 19,13:? "| POKE 710, ";SC 
0L«16+SIMT;: POSITION 38.13:? "|" 

lY 1298 ? " I 1 r— 'i 

i" 

OT 1308 ? " I III SETCOLOR 
4,";BC0L;",";BINT;:P0SITI0N 38,15:? "I 



MG 1318 ? " 



+ 



JD 1320 POSITION 19,17:? "| POKE 712, ";BC 

OL»16+BINT;:POSITI0M 38,17:? "|" 
DG 1338 POSITION 19,18:? "1 



AS 1348 ? 



BF 1358 POSITION 8,28;? " | Push P to P 

RIMT these settings |" 
AU 1368 ? " l- 



_|ii 



KC 1378 ? " 

II 

BD 1388 RETURN 
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continued from page 11 

Now that you have entered the whole 
thing, make sure that your typing is cor- 
rect with D.CHECK in Action!, and then 
save the file. Do not run it before storing 
it. Some of those annoyingly long lists of 
numbers are machine-language routines 
that will send your computer into the elec- 
tronic equivalent of a coma if typed wrong. 

Now that there is a version safely saved, 
go to the monitor, compile and run the 
program. 

Playing the Game 

When the game first starts, you should 
see a buOding at the right of the screen with 
fire coming out of the second-story win- 



dow, the back end of an ambulance at the 
right, and two firemen in the middle. A 
baby should be bouncing on their net for 
no very good reason. 

Press the Select key or move a joystick 
plugged into Port 1 in any direction to in- 
crease the level that you wish to start on. 
It automatically defaults to Level 1. To be- 
gin the game, push Start or the joystick 
button. 

When you start the game, push the 
joystick to the left. Soon a baby should 
jump out of the top story of the building. 
Wait until he bounces off the net that the 
firemen are holding, then let go of the 
joystick. 

The joystick is self-centering, so to return 
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the firemen to the center position, just let 
go of the stick. To keep them positioned 
on either side of the screen you must hold 
the joystick in that direction. This system 
of movement takes a little getting used to, 
so be prepared to be frustrated for the first 
few games. If you are easily upset, have a 
relaxing record playing. Anything by Si- 
mon and Garfunkel will do. 

The baby will now bounce off the net 
again. Push the joystick to the right. One 
more bounce and the baby will safely land 
in the ambulance. (Yes, I realize the im- 
probability of an ambulance with a sun- 
roof, but if it didn't have one, there 
wouldn't be a game. So there.) 

Soon another baby will jump from the 
window. 

This continues until the number of ba- 
bies you have saved is equal to the present 
level times three. When this happens the 
level is increased and you must then res- 
cue a number of babies equal to that level 
times three. 

Difficulty also increases as the level goes 
up. Every even level the babies will not al- 
ways bounce toward the ambulance. They 
have a fifty-fifty chance of just going 
straight up instead of to the right. This will 
catch you by surprise the first time it hap- 
pens, especially if you play the game be- 
fore reading these instructions. Crank 
Simon and Garfunkel up a notch. 

Also, at every third level, the number of 
babies that can be on the screen at one time 
is increased by one, up to four. So, on Level 
10, there can be four babies on the screen 
at once and they won't always bounce 
toward the ambulance. This is generally 
known as chaos. And after Level 10, they 
start speeding up. 

Every time you successfully bounce a 



baby toward the ambulance, you get one 
point. For each baby that you get safely in- 
side the ambulance, you get a bonus of the 
number of points equal to whatever level 
you are currently on. Level 1, one point; 
Level 6, six points. 

You can miss bouncing a baby three 
times before the game ends. After it's over, 
you will see the score you obtained, the 
high score, and the level you reached. To 
return to the title page, press the joystick 
button. 

If you start the next game by just press- 
ing the joystick button or Start, the game 
will restart on the level that the previous 
game ended. If you fiddle with Select, a 
different level can be chosen. 

During play, the space bar will turn the 
pause feature on, and the joystick button 
will restart the game. 

The End 

Another baby landed in the ambulance, 
and I sighed. I'd lost count long ago, but 
we must have saved hundreds during this 
fire. Hundreds of littie, bouncing lives. 

We had to move— another had jumped 
and one was falling midway between the 
building and us. We ran and barely caught 
the one by the building. As he went up, we 
got under the other one. He bounced and 
we needed to get back under the first. 

We ran. 

I tripped. 

Greg Knauss is 20 years old and should 
probably be out looking for a real job like 
any other respectable young man. Instead, 
he has decided to write computer pro- 
grams, listen to The Who and spend time 
with his girlfriend. 
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; TRIAL BY FIRE 

; BV GRES KNftU55 

; COPYRIGHT 1988 BY flHALOG COMPUTING 

■ CHECKSUM DflTfl 

; [DC ED BE ec B3 fl5 3B 8E 

: ec 57 BC E8 86 72 82 36 

; 08 95 id 7E 83 10 CB 34 

; C6 BO 44 71 Eft flZ 10 4F 

; 5F F8 73 68 2D 96 B8 B4 

; 42 58 CA 9fi &4 65 98 1 

CARD I,DL,5C,CH.CH2,DRB.K,5C0RE, 

H5C0RE,5CR 
BYTE 5,J,PM,BABY,BflBE5,HIT,MIS5,flDU, 

LVL,[JD,B5ag,NKTL,KEV,BRN 
CARD ARRAY HC5) , Y(5) ,B(5) ,«(5) ,UP{5) 

PROC CHSETO 

[aeeeoeee 

68135 2225 

88388898 

8 35 86 85 162 176 168 178 

64 128 88 8 128 128 128 

8 12 5 8 2 2 6 

8 85 149 85 138 178 178 178 

8 8 64 85 128 123 128 86 

5 5 518113 

64 84 85 85 8 65 85 255 

8 8 111 184 8 64 64 192 

8 8 255 8 8 8 8 8 

8 6 249 41 6 1 1 3 

5 21 65 84 1 85 85 255 

88 80 64 8 64 64 64 192 



1 5 5 21 21 64 30 252 




85 85 69 1 1 8 e 8 




64 64 64 86 86 86 86 252 




1 1 5 5 21 20 26 252 




85 85 65 8 8 8 6 8 




64 86 86 84 84 28 28 252 




255 255 255 255 255 255 255 


255 


255 195 195 195 195 195 195 


255 


255 158 19G 234 254 254 254 


255 


255 235 254 254 251 239 234 


255 


254 255 255 63 63 15 3 8 




191 255 255 252 252 249 192 


8 


3 15 15 15 15 63 63 63 




63 63 63 63 255 255 255 255 




253 213 213 253 253 253 255 


255 


127 87 87 127 127 127 255 255 


255 255 255 255 255 255 253 


253 


255 255 255 255 255 255 127 


127] 



PROC FIREC) 

C255 255 255 255 255 253 245 247 

8 8 8 1 1 63 64 8 

117 85 119 215 213 85 85 85 

255 215 211 215 215 199 215 255 

85 35 87 87 93 85 87 127 

85 119 95 55 127 255 255 255 

255 255 247 245 245 213 215 8? 

223 253 125 117 245 85 35 85 

81 81 69 84 84 80 64 8 

16 8 1 17 16 17 85 85 

245 197 213 215 215 215 87 95 

85 85 85 85 85 85 85 351 



PROC FIRE2(] 






[255 255 


255 255 253 253 245 21 


8 8 


8 8 


8 4 


16 8 




93 


125 11? 85 93 93 


85 85 


255 


211 


215 


199 215 


199 199 255 


87 


37 93 


85 


87 119 55 127 


117 


119 


127 


255 255 


255 255 255 


255 


255 


255 


253 247 


213 215 85 


221 


125 


245 


245 213 


85 85 93 


85 


34 68 


16 


16 64 8 


6 


8 1 


1 64 


68 


68 69 3J 




245 


213 


213 


213 211 


211 87 95 


85 


55 85 


85 


85 85 85 


851 



PROC BABIE5() 

[28 56 66 153 255 66 189 255 

23 39 62 156 189 246 96 56 

216 144 246 255 255 245 144 216 

56 56 246 189 156 63 39 19 

255 189 60 255 153 66 28 56 

28 6 111 189 57 124 228 232 

27 9 175 255 255 111 9 27 
266 228 252 57 189 ill 6 28 

28 56 60 153 255 66 139 255 
8 8 7 6 31 62 62 59 

8 B 7 6 31 62 66 118 
6 8 7 6 31 62 60 236 
8 8 7 6 31 62 60 1183 

PROC DLI5TO 

[112 112 78 8 8 7 136 16 68 8 8 
444444444444 132 444 
4 65 DLI5T] 



132 



•4B 



PROC DLIO 

[72 238 8 5 173 8 5 141 18 

212 261 1 288 17 169 8 141 9 212 169 

15 141 24 208 165 44 141 23 208 164 

64 201 2 288 7 169 86 141 22 285 164 

64 165 8 141 8 5 169 8 141 26 288 

164 64] 

PROC PLRUBIO 

[162 3 189 244 6 240 85 56 221 248 6 

246 83 141 254 6 166 141 255 6 142 

253 6 24 165 8 189 253 6 24 109 252 
6 133 264 133 296 189 249 6 133 263 

173 254 6 133 265 189 248 6 179 232 
46 255 6 144 16 168 177 293 145 205 
169 8 145 203 136 262 288 244 76 87 
6 169 8 177 293 145 285 169 8 145 
283 200 202 208 244 174 253 6 173 

254 6 157 248 6 189 236 6 248 48 133 

283 24 138 141 253 6 189 235 6 133 

284 24 173 253 6 185 252 6 133 286 
189 248 6 133 285 189 248 6 178 158 
8 177 283 145 285 268 202 268 248 

174 253 6 169 8 157 236 6 282 48 3 
76 2 6 76 98 228 8 8] 

PROC YPOSO 

[175 156 131 123 115 187 99 51 82 74 
78 66 62 58 56 55 54 54 55 54 56 58 
62 66 76 74 82 51 55 187 115 123 131 
156 175 180] 

PROC CLR5C) 

[44 246 72 56 76 15 146 8 146] 

PROC BURKO 

BRN=3-BRN P0KEC1715,CH/256-BRN) 

P0KE(7e8,86+BRN/4) RETURN 

PROC WAITO 

FOR K-1 TO 1080 DO OD RETURN 

PROC 5ETUPC) 
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GRflPHICSCe) P0KE(8-2,e) P0KEt752,l) 
POKE (559,0) 
CH=CPEEK(106)-8)*256 
M0yEBL0CK(CH.CH5ET,8«34) 
MOyEBLOCK CCH+8*34 , FIRE . 13»8) 
CH2=(PEEK(ie6)-16)«256 
H0yEBL0CKCCH2,CHSET,8«34) 
MOUEBLOCK (CH2+8«34, FIRE2, 13*8) 

DL=PEEKC(88) 5C= (PEEK (166) -40)*256 
P0KECiDLIST+3,DL) POKEC CDLI5T+3,5C) 
P05ITI0N(23,8) 

PRINTC'trial by fireh") ZER0(5C,3e72) 
FOR 1=8 TO 2 DO POKEC(88,5C+1024*I) 
P0KEC82,35) POSITION (35, 15) 
PRINT(";5?e5<5=>555555 33") 
POKE(82, 0) PQS ITIQM(0,1) 
PRINTE ("^^^") PRIHTEC 
PBIHTE("ea66M") PRIMTEC"; 
PRIHTEC'S^^") PRIHTEC'i 
PRIHTEC'SHe^') PRINTECf 
PRIMTEC't^^") PRTMTEC' S^ 
PRIHTEC'I MliiJ") PRINTECn^EIli 
PRIMTEC"!^^") PRIMTEC't 
PRIHTE ("S «i^") PRIKTEt"! 

PRIHTE ("^55^") PRINTECf ^ - 

POKE (82 . 8+1*5) P05ITI0H (8+1*9, 16) 
PRIMTEC' !«$ /.&'") PRINTEC ()*++,-.") 
PRIMTEC'/ei 234") 00 P0KEC(8e,DL) 
HOUEBLOCK (1786 , DLI , 55) 
POKE (1715, CH/256) 
HOUEBLOCK (1536 , PLRMBI, 168) 
PMrPEEK(106)-56 DRB=PH*256+1 
ZERO (DRB+1824, 1024) POKE (1788, PM+4) 
POKE (55277, 3) POKE (54275, PM) 
POKE (1771, PH) 5tTBL0CK(1784,4.8) 
5ETBL0CK(1772,4.1) FOR 1=9 TO 3 DO 
M0UEBL0CK(DRB+I«258.BftEItS.ie4> OD 
MOUEBLOCK (704, CLR5, 5) 
H5CORE:0 POKEC (560,DLI5T) 
P0KEC(512,17ee) POKE(1280,0) 
POKE (54235, 152) POKEC (548, PLRvBi) 
POKE (559, 62) RETURN 

PROC MhINC; 

ScTiJPC) LUL:l DO 

P0KE(1772,1) P05XTI0Nf2,l) 

POKEC(DLI5T+9,5C+10243 

POKE [53248,123) POKE (1788, 180) 

PRIHTC Copyright 1587 MagnuM") 

PRIHK" Opus ") BRN=e 

DO KOR 1=0 TO 32 DO 

l-PEEKd + VPOS) POKE (1780, J + i3) 
WfllTO BURHO 
KEY=PEEK (53275) IF KEYrS OR 

^.TICK(0)<>15 THEN L'gL== + l 
IF LyL>5 THEN LUL = l FI POSITION (7 , i) 
PRINK" Le'.'el". ") PRINTBdyL) 

PRIMTC ") FI 

J=;5TRIG(0) P0KE{77,8) 
IF KEY=6 OR J=e THEN EXIT FI 00 
UNTIL KEY = 6 OR J=8 OD POKE (53248, 0) 
5C0RE=0 5CR=e B56U=8 MI55=e ADU=0 
BRH=e »i',TL=3*LUL BfiBE5=LUL/3+i 
UD=l-LyL MOD 2 P05ITI0N(7, 1) 
PRINK" Get ready, , . ") 

FOR 1=1 TO 100 DO BURNO HftlTO OD 
P05ITI0H(2,1) PRIHTC'MiSSes; 0") 
PRINK" Score: 8 Level: ") 

PRINTS CLOD 

00 

FOR 1=1 TO 4 DO KCI)=0 Y(I)=8 B(I)=8 
0(I)=8 UP(1)=1 OD HIT=6 
DO POKE (77, 8) SNDRSK) 5=5TICK(0) 
IF S=li THEN J=0 EL5EIF 5=7 THEN J=2 
EL5E J=i FI 



POKEC (DLI5T + 5 . 5C+ J*1024) BURN C) 
IF aDV=l AND BSflU MOD NKTL=6 THEN 
LML==+1 P05ITI0N(36,1) PRINTBCLUL) 

N!<TL=LUL»3 B5flU=0 A&U=2 UD=S FI 
IF LML MOD 2=0 ftND ADy=2 THEN UD=1 FI 
IF LVL MOD 3=8 AND ADU=2 THEN 

BABE5==+1 ADU=0 FI 
IF LVL MOD 2=0 THEN ADy=0 FI 
IF LUDlfl THEN UD=1-LUL MOD 2 BABE5=4 

FI 
IF 5CR>5C0RE THEN SC0RE=5CR 

POSITION (22.1) PRINTC(5C0RE) FI 
FOR BABY=1 TO BABES DO 
POKE (1772+BflBY-l,Q (BABY) /4*8+l) 
P0KE(1788+BABV-l,Y(BABY)+8) 
POKE (53248+BABY-l,X (BABY)) 
IF B(BABY)=1 THEN K (BABY) ==+UP (BABY) 

Q(BABY)==tl 

Y (BABY) =PEEK (YP05+Q (BABY) ) 
IF Y(BABY)>i75 AND X(BABY)=52 AND 

J<>0 THEN HIT=1 FI 
IF Y(BABY)>175 AND K(BABY)=i27 AND 

JOl THEN HIT=1 FI 
IF Y(BABY)>175 AND X(BABY)=162 AND 

J<>2 THEN HIT=1 FI 
IF YtBABY)>175 AND HIT=e THEN 

0(BABY)=e S0UND(e,2e6,19,ie) 

UP(BABY)=1 IF UD=1 THEN 

UP(BABY)=RAND(2) FI SCR==+UP (BABY) 

FI 
IF K(BABY)>155 THEN K{BABY)=e 

Y(BABY)=e 0(BABY)=8 B(BABY)=8 

B5AM==+1 ADU=1 SCR==+LVL FI FI 
IF RAND(25)<1 AND B (BABY) =8 AND 

(Q(l)<5 OR 0(1)>15) AND 

{lT(2)<5 OR Q(2)>15) THEN IF 

(Q(3)<5 OR Q(3)>15) AND 

(Q(4)<5 OR Q(4)>15) THEN X(BABY)=67 

0(BABY)=ie B(BABY)=1 SrRAND (4) 

K=PEEK(CLRS+S) POKE(703+BABY,K) FI 

FI 

OD 
IF LUL<il THEN HAITO ELSE 

FOR K=i TO 2e08-LVL»18e DO OD FI 
IF PEEK(764)=33 THEN DO P0KE(77,8) 

SNDRSTO UNTIL 5TRI6(0)=e OD 

POKE (764, 255) FI 
UNTIL HITOe OD 

FOR BABY=1 TO BABES DO 
IF Y(BABY)<176 THEN 

POKE(53248+BABY-1,0) FI 
IF Y(BABY)>175 THEN 

P0KE(1788+BABY-1,215) J=BABY 

FOR 1=1 TO 1889 DO OD FI OD 
MISS==+1 POSITION(10,1) PRINTB(MIS5) 
S0UND(B,2ee,8,12) FOR 1=1 TO 60 DO 
BURNO WAITO IF 1=3 THEN SNDRSTO FI 
OD BABY = 5 FOR I=X (J) TO 255 DO BURNO 
P0KE(i772+J-l,BABV*8+l) BABV==+1 
IF BABY=12 THEN BABY=5 FI 
P0KE£53248+J-1,I) HAITO 
P0KE(764,255) OD IF MIS5=3 THEN EXIT 

FI 
OD 

IF SCORE>HSCORE THEN HSCORE=SCORE FI 
P0SITI0N(1,1) PRINK" ") 

PRINK" ") 

P0SITI0N(1,1) PRINTC'Score: ") 
PRINTC(SCOHE) P0SITI0N(13, 1) 
PRINTC'High Score: ") PRINTC (HSCORE) 
P0SITI0N(38,i) PRINTC'Leyel: ") 
PRINTBtLyL) DO BURNO WAITO UNTIL 
STRIG(e)=e OD FOR K=l TO 10880 DO OD 
P0SITI0M(1,1) PRINK" ") 

PRINK" ") 

OD gq 
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Database 

DELPHI 



by Michael A. Banks (kzin) 



You can customize 

DELPHI to suit the 

requirements of 

your terminal 

software and your 

personal needs. 



Ah, winter! The time of renewal and 
preparation for spring. The time of 
icicking up the thermostat, kiclcing 
back and catching up on all the in- 
door activities you stayed away from 
during the summer. (Florida and Southern 
California readers excepted, of course! But, 
gee— isn't all that warm weather a drag?) 

Those of you who aren't away on cruises 
or holidays in warmer climes are probably 
spending a lot more time with your computers 
than usual, mainly because there's nothing to 
do outside (assuming you've already shoveled 
the snow). If you're spending more time with 
your computer, chances are you're spending 
more time on DELPHI— in which case you'll 
appreciate the discussion at hand: how to cus- 
tomize DELPHI for more efficient use. 

As You Like It 

If you're like most computer users, you've 
probably customized your software, adjust- 
ing its parameters to match your system's con- 
figuration and your personal tastes. 
Undoubtedly, your communications software 
reflects your choice of screen colors, termi- 
nal emulation and other elements in how it 
interacts with you and how it works behind 
the scenes. 

You can also customize DELPHI to suit the 
requirements of your terminal software and 
your personal needs. It takes only a little time 
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and planning, and you can do it all from 
within ANALOG'S Atari SIG. 

The key to customizing DELPHI is the 
"Set Preferences" selection on ANALOG'S 
Atari SIG menu. Type SET at the ANALOG) 
prompt, and you'll see this menu: 

Preferences Menu: 

Nane Change 
Editor Preference 
Topic Selection 
Settings (Profile) 
HELP 
Exit 

PREFERENCES) (Nane, Edit, Top, Set, Help, Exit) 

The "Name Change" selection allows you 
to change the name you entered when you 
joined the SIG. (As noted in a previous 
column, this name is visible to others via the 
Entry Log.) 

"Editor Preference" enables you to select 
the default editor (EDT or Oldie) that you'll 
use in Workspace and Forum within the SIG. 
(While you are in the SIG, this setting super- 
cedes any editor settings you may have made 
elsewhere.) 

"Topic Selections" leads to a menu from 
which you can change topics that are acces- 
sible to you in the Forum and databases. 

"Settings (Profile)" is a direct pipeline to 
the SETTINGS system that you'll find as a 
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selection in the Using DELPHI area off the 
DELPHI Main Menu. This is a rather com- 
plex system, which I'll explain here. 

When you select the SETTINGS system 
(either here, or by typing US SET at the 
DELPHI Main Menu), you'll see this menu: 



SETTINGS Henu: 

BUSV-«ode 

DEFflOLT-Menu 

DOHHLOflD-Line-teminjtors 

ECHO-«ode 

EDITOR 

fILE-TRKHSFERS 

KERMIT-SETTIHGS 

LENGTH (Lines/page) 

NETHORK-PflRWIETERS 

PASSUORD (Change) 



PROHPT-flode 

SET-High-bit 

SLflSH-Tem-settings 

TERHINAL-Typ» 

TIMEOUT 

UTILITIES 

WIDTH (Colunns] 

XnODEM-SETTINGS 

HELP 

EXIT 



SETTIKGS)Uhat would you like to set? 

Here's an item-by-item explanation of each 
selection on the menu. The defaults for most 
of the items are what you will want to use 
(either because they work best, or because 
you selected them the first time you signed 
on to DELPHI). I've put a star by those items 
that you are most likely to want to change. 
(Note DEFAULT Menu in particular). 

BUSY-Mode: This setting disables or ena- 
bles pages and "New Mail" alerts, as well 
as one-line "sends." (These features are nor- 
mally on.) 

•k DEFAULT Menu: If you never touch any 
other settings, this is one default you should 
change. 

Your Default Menu is the first menu you 
see when you sign on to DELPHI. Normal- 
ly, this is the DELPHI Main Menu, but you 
can change it to ANALOG'S Atari SIG, 
which means that you will bypass the Main 
and Groups & Clubs menus at logon and go 
directly to the Atari SIG. 

To make the Atari SIG your default menu, 
simply type DER\ULT at the SETTINGS 
menu, then follow the prompts and enter GR 
AT as your new default menu. Every time you 
sign on thereafter, the first thing you'll see 
is the Atari SIG menu (and this will save you 
some valuable time). 

DOWNLOAD-Line-terminators: This de- 
termines what will be sent as line terminator 
during text transfers. The choices are carriage 
return, linefeed, or both. 

ECHO-mode: The echo-mode toggle is 
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Changing your 

password frequently 

is important, and 

it's a quick and 

easy process. 



useful if your communicafions software hap- 
pens to run in full duplex, or if for any rea- 
son you don't want DELPHI to echo what you 
type. 

• EDITOR: This sets the editor— EDT or 
Oldie— that you'll use in the Forum, Mail and 
Workspace. 

• FILE-TRANSFERS: This selection leads 
to a sub-menu at which you can set your 
default file-transfer method. 

KERMIT-SETTINGS: Kermit settings are 
changed at this menu. 

• LENGTH (Lines/page): LENGTH sets 
the number of lines of text DELPHI will dis- 
play before pausing with a "More?" prompt. 
(If you want a nonstop text display, set your 
length to zero.) 

NETWORK-PARAMETERS: Here you set 
network and terminal configurations. This 
one's a bit complicated, but a menu is provid- 
ed from which you can select pad parameters 
involving how the connecting network com- 
municates with you. 

• PASSWORD (Change): Changing your 
password frequently is important, and this is 
the place to do it. It's a quick and easy 
process; just follow the prompts. 

• PROMPT-Mode: As you become more 
skilled and knowledgeable in using DELPHI, 
you will find that you don't need to see full 
menus. DELPHI'S designers were aware of 
this fact, and have arranged things so that you 
can "turn off' menu display with this setting. 
When you select PROMPT-Mode, you can 
select any of these prompt settings (examples 
of the prompts you'll see follow each): 

1. Brief - SET) 

2. Verbose — SET) (Brief, Verbose, 
Menu, Exit) 

3. Menu — (The full menu) 

This is another time-saver, because with 
the Brief or Verbose setting you will not have 
to wait for menus to scroll by as you move 
from one area to another. 

SET-High-bit: This setting controls 
whether the high bit of each byte is set to 1 
or left unchanged during an Xmodem or Ker- 
mit downloads. In general, this should be left 
unchanged. 

SLASH-Term-settings: This selection leads 
to a subsystem that you can use to set certain 
terminal characteristics (i.e., how DELPHI 
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communicates with you). Type /TERM at 
any prompt to see a list of these charac- 
teristics. 

TERMINAL-Type: Here is where you set 
terminal emulation (VT52 or VTIOO). Cer- 
tain features, like screen blanking before Fo- 
rum messages are displayed, are enabled 
when you use terminal emulation. 

TIMEOUT: The timeout setting is the num- 
ber of minutes that DELPHI will remain con- 
nected with you if there is no input— useful 
if you are called away from your computer 
whOe you are online, and forget that you are 
online. 

UTILITIES: This selection allows you to 
perform advanced settings operations. 

• WIDTH (Columns): This sets the num- 
ber of columns (letters) of text DELPHI dis- 
plays on a line before moving to a new line. 
The range is 16 to 132. 

• XMODEM-SETTINGS: Here you can 
set the way DELPHI handles Xmodem file 
transfers. You can set the Xmodem error- 
checking mode, timeout period, number of 
retries, and line terminators for text transfers. 

• HELP: An obvious selection, HELP 
provides help with the SETTINGS system. 

EXIT: Use EXIT (or Ctrl-Z) to exit this 
menu. (Note that Ctrl-Z or Ctrl-C cancels 
any selection, as long as you haven't made 
any changes permanent by pressing Return.) 

By the way, many of these items are acces- 
sible, too, via "slash" commands (commands 
preceded by a /). Type /HELP at any prompt 
other than the Conference prompt to see a list 
of settings you can change. 

And one final word about the Set Prefer- 
ences menu: The HELP selection leads to a 
help sub-menu at which you can select any 
of the topics on the Set Preferences menu. 
When you select a topic, you have access to 
one or more articles on that topic. 

That's it: everything you need to know 
about customizing DELPHI to work with you 
and make your sessions on DELPHI faster 
and easier. 

ANALOG'S Atari SIG Databases 

Database offerings are growing like grass 
in the Spring, and you'll find programs from 
the most recent issues of ANALOG in the 
Current Issue database. And don't forget to 



Make the 
DELPHI Connection! 

As a reader of ANALOG Computing, you 
are entitled to take advantage oi" a special 
DELPHI membership offer. For only $19.95 
plus postage and handling ($30 off the stan- 
dard membership price!), you will receive a 
lifetime subscription to DELPHI, a copy of 
the 500-page DELPHI: Tlie Official Guide by 
Michael A. Banks and a credit equal to one 
free evening hour at standard connect rates. 
Almost anyone worldwide can access DEL- 
PHI (using Tymnet, Telenet or other net- 
v^orking services) via a local phone call. 
Make the DELPHI connection by signing up 
today! 

To join DELPHI: 

1. Dial 617-576-0862 with any terminal or PC 
and modem (at 2400 bps, dial 576-2981). 

2. At the Username prompt, type 
JOINDELPHI. 

3. At the Password prompt enter ANALOG. 

For more information, call DELPHI Mem- 
ber Services at 1-800-544-4005, or at 
617-491-3393 from within Massachusetts or 
from outside the U.S. 

DELPHI is a service of General Videotex 
Corporation of Cambridge, Massachusetts. 



check the Recent Arrivals database for new 
programs, text files and data files not yet 
moved to specific database categories. 

Speaking of databases, here's a reminder 
to ANALOG readers who aren't yet DELPHI 
members: among the many benefits of DEL- 
PHI membership is being able to download 
program listings that appear in ANALOG. 
That's a major convenience, when you con- 
sider all the time you spend keyboarding 
programs— and correcting errors. And there 
are thousands of other programs uploaded by 
ANALOG Atari SIG members, as well as the 
latest Atari news and reviews, and much, 
much more. 

Interested? You can sign up right now: see 
the accompanying sidebar for online signup 
information. 

The Conference 

Tuesday. 10 RM., EST. The Atari Users' 
Group real-time conference. Be there— or be 
an obtuse rectangle. 

(To join a real-time conference, type CO at 
the SIG menu, then type WHO at the con- 
ference menu. You'll see a conference group 
name, with a list of the members participat- 
ing beneath the group name. The name will 
be preceded by a number; type JOIN followed 
by the number, and you're in! Type to talk. 
If you get stuck, ask those in the conference 
group for help, or type /HELP) 

That's it for now. Next month: using DEL- 
PHI'S online, interactive Help system. Until 
then, use DELPHI'S alternate interactive help 
system: DELPHI: TIte Official Guide. See 
you online! 



In addition to having published science fic- 
tion novels and books on rocketry, Michael 
A. Banks is the author of DELPHI: The Offi- 
cial Guide and The Modem Reference both 
fivm Brady Books/Simon & Schuster. Look 
for his general articles on telecommunica- 
tions and tips on using DELPHI in the Atari 
Users' Group databases. You can contact 
Banks to talk about custom software, custom 
cars and science fiction (among other things) 
by sending E-mail to membemame KZIN on 
DELPHI e\ 
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ANALOG 
READER 
SURVEY 



In order to better tailor ANALOG to the needs of its 
readers, we ask that each of you please take a couple 
of moments to fill out the questionnaire below and send 
it to i3S at the address shown before March 1 5, 1 989. 
If you don't want to remove this page from your maga- 
zine, it's okay to use a photocopy or to jot your answers 
on a separate piece of paper. Your assistance will be 
greatly appreciated. Thank you. 

Please check the appropriate responses: 



—Equipment o^vned: 

D 130XE 

D 800XL 

D 600XL 

D 1200XL 

D 400/800 

D ST 

D Disk drive 

D Cassette drive 

D Modem 

D Printer 



—Computing experience 

(GENERAL): 

D Novice 

D Intermediate 

D Expert 

—Computing experience 

(programming): 

D Novice 

D intermediate 

D Expert 

—Languages of interest: 

D BASIC 

D Assembly 

D Action! 

D C 

D Logo 

D None 
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—What types of programs do 

you like? 

D Games 

D Utilities 

D Programming aids 

D Home use 

D Business use 

D Educational 

D Graphics 

D Sound 

—Do you think ANALOG 
should print programs whose 
listings are unusually long 
if the quality of the pro- 
gram ^v^vrrants it? 
n Never 
D Sometimes 
D Usually 
D Always 

— What types of articles 

ARE YOU interested IN? 

D Programming tutorials 

D Reviews 

D General interest 

D Programs 

D ST coverage 

D Show reports 



—How DO YOU FEEL ABOUT THE 
TECHNICAL LEVEL OF ANALOG? 

n Too advanced 
D Just right 
D Too easy 

—Are you interested in the 

type-in programs? 

D Not at all 

D Somewhat 

D For the most part 

D Definitely 

— Are you interested in the 

assembly-language listings? 

a Not at all 

D Somewhat 

D For the most part 

D Definitely 



Send completed surveys to: 

ANALOG Computing 
P.O. Box 1413-M.O. 
Manchester, CT 06040-1413. 




continued from page 21 

cells). These types are available in six- and 
12-volt sizes in ratings of one to ten amp- 
hours. I used a 2.2-amp-hour battery which 
came with my videotape recorder, but Sears 
sells such batteries as do most electronics 
houses. Like NiCads, gel-cells need recharg- 
ing every so often. 

If you notice, nowhere do I provide cir- 
cuitry for a battery charger. I assume that you 
will provide your own charger, depending on 
the batteries used. Dry cells are not recharge- 
able, NiCads need to be charged separately 
in their own charger, gel-cells use a differ- 
ent type of charger, while lead-acid types can 
use a standard automotive unit. So whatever 
battery you use, get the proper charger to go 
with it. Sib can be wired so the battery con- 
nects to its recharger while the power sup- 
ply is switched off. 

Connections on the Board 

The 1050 disk drives, and 400/800 com- 
puters, do not use five-volt DC inputs. In- 
stead, they need nine volts AC, which is 
difficult to produce from a battery. While it 
is possible to generate nine volts AC from 12 
volts DC, it requires you to build your own 
transformer and inverter, and I feel this is be- 
yond the expertise of the average ex- 
perimenter. Since most power outages are of 
short duration, having one to two hours of 



power to your computer should handle the 
problem without needing to run the disk 
drive. For portable operation you can buy just 
an inverter without the UPS function. The 
most commonly sold inverters are Tripp-Lite 
inverters made by the Tripp Co. in Chicago, 
111. A 200- watt model PV-200 costs about 
$79, and is available from Sears and Jameco. 
Also, some electronic houses can get them 
for you. 

But if you really need to have portable pow- 
er to a disk drive or want to have the option 
of saving data to disk before your batteries 
go dead then never fear; there are simple 
ways. You can put about 18 volts DC into the 
power plug (polarity is critical), and the disk 
drive will run. I don't recommend this 
method because it puts additional load on the 
five-volt regulator and can cause thermal 
shutdown over long periods on battery. This 
also means you need a separate 18- volt bat- 
tery for the disk drive besides the 12-volt one 
for the computer. 

Another approach is easy to do but requires 
you to open the case of your 1050 drive after 
it is out of warranty (sorry 810 owners, I don't 
have the info to know if this works on your 
drives). First remove all cables and disks 
from the drive. Place it on its top, and re- 
move the four screws in the deep wells. Now 
turn it right-side-up, and catch the screws as 



they fall out. Remove the top cover by lifting 
it up at the rear then pulling toward the rear. 
Now refer to Figure 4. This is a drawing of 
the rear portion of the circuit board as viewed 
from the top and also a schematic of the disk- 
drive power supply. You need not make any 
modifications or remove the board. Instead 
use three mini test clips with two-foot lengths 
of 22-gauge or larger wire to attach to CRIB, 
CR16, and CR19 (A, B, and C respectively) 
as shown on the diagrams. 

The drive has two power supplies, the first 
one being a five- volt supply almost identical 
to the one we built. Number 2 is a voltage 
doubler which sends about 18 volts to the 
12-volt regulator. The connection to CR18 is 
at the input to the five-volt regulator, CR16 
at the 12-volt regulator and CR19 is ground. 
For this reason, applying 18 volts to the 
power-input plug will provide about 16 volts 
to point A and 14 volts to point B, enough 
to run the drive. Normal input to these points 
are 10 and 18, respectively, so the excess vol- 
tage at A can cause excessive heat on the five- 
volt regulator. Bring the wires out through 
a ventilation slot and close up the case. Now 
you can connect the three wires to the bat- 
tery, using P3, as shown in Figure 5. 

You can use the first circuit for full-time 
portable operation or the second, which is 
a'modification of Figure 3, for UPS backup 
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operation. Be careful not to apply the nor- 
mal nine volts AC power and the battery pow- 
er at the same time. No damage would occur 
for short durations, but running for long peri- 
ods could hurt the drive power supply and/or 
the battery. Using the same battery to run 
both the computer and the disk drive con- 
sumes about 2.5 amps while the drive is run- 
ning and about 1.75 when it is idle. With my 
2.2-amp-hour battery, I can now run about 
one hour and format and write about ten full 
disks. That should be plenty of time to get 
offline in a power outage. 

Using Figure 5b, power transition to bat- 
tery is instantaneous for the computer but 
merely fast for the disk drive. As long as there 
is AC power, RYl stays pulled in and the disk 
drive works normally. When the AC drops 
out, the relay switches in the battery. The 
on/off switch in the drive won't turn off the 
drive on battery but does disconnect the nine- 
volt supply. Disk speed will probably be off, 
and you might want to check it. Mine runs 
between one and three RPM too slow, but this 
still is good enough to work. 

Be sure to use write verify! Some programs 
and DOS versions do not verify writes and 
so if your speed is off, you may get bad writes 
and not know it until it is too late! 

Additional Notes 

The 800 has the identical power supply to 
the disk drive except it has an additional 
-5 volt supply. This requirement cannot be 
met with one battery. You would either need 
to use two sets of batteries or resort to using 
AC. For this you can either use a power in- 
verter or purchase a special product to do the 
job. Part #DC0NV2 from All Electronics is 
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a +/— 5V converter and would do the job 
of producing the five volts from the single 
battery. But this would have to be installed 
in the power-supply board and would be a 
difficult approach; I don't recommend it un- 
less you know what you are doing. 

Even though you can run your computer 
and your disk drive on batteries, unless you 
can see what you are doing, you are dead in 
the water. I am not aware of any 12- volt com- 
posite monitors, but you can buy small port- 
able televisions which run on batteries, most 
of which will run directly off 12 volts. So I 
leave it to your imagination to solve this 
problem. So now you can build your own ver- 
sion of the portable computer that Atari never 
made by using the basic circuitry in Figure 
3. Make the three-amp upgrade using the 
components listed in the parts list, and with 
the additional power available you can con- 
nect the computer, disk drive and TV to our 
UPS, connecting to the junction of Dl and 
D2. A 130 XE, 1050 drive, a micro TV and 
this power supply can fit into a large attache 



or small suitcase. Yiur outfit can now run full 
time off either one single plug-in supply, gel- 
cell battery, or substitute a cigarette lighter 
plug for the battery and run off car power! 
So if you find a need to have inexpensive 
protection against blackouts and brownouts 
or you want to have portable Atari power, then 
this project is for you. No more will you wor- 
ry about people tripping on cords or 
lightning-induced power flickers. 

PARTS LIST 

B 1 12-volt battery. See text: 

10 "C" 1.2-amp-hour NiCads 

(RS 23-124) with charger (23-132) or 

10 "D" 4-amp-hour NiCads 

(RS 23-140) with charger (23-138) or 

8 "D" alkaline cells (RS 23-550) or 

2 lantern batteries (RS 23-016) or 

1 12-volt lantern battery 

(DSE S-3242) or 

1 12-volt 1.2-amp-hour gel-cell 

(DSE S-3315) or 

continued on page 64 
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continued from page 17 
starting at location 832. Each one is made 
up of 16 bytes that are used to describe what 
kind of I/O we want to do. Although we can 
have information in all eight lOCBs at once, 
we can still only do one I/O operation at a 
time. lOCBs usually get their information 
from the user. 

ZIOCB: There is only one ZIOCB, start- 
ing at location 32. It is set up exactly like an 
lOCB, and as a matter of fact contains the 
information for the lOCB that is currently be- 
ing used. Why is it necessary? Because page 
is faster than regular memory, and we want 
to do I/O as quickly as possible. Since only 
one lOCB can be used at any one time, it 
would be a waste of precious page memory 
to put all eight lOCBs in page 0. CIO trans- 
fers the information from the lOCB to the 
ZIOCB. 

CIO: The CIO routine can be found in the 
OS ROM, starting at location 58534. CIO 
takes the information in the lOCB that is cur- 
rently being used and stores it in the ZIOCB. 
It then uses that information along with 
HATABS (794) to figure out which device 
handler is needed and then passes control to 
the device handler. 

Device Handler: Again, it should be device 
handlers, since there is one for each device. 
The device handlers can be anywhere in 
memory, with HATABS containing a list of 
where to find them. A device handler does 
one of two things. If the device in question 
is the keyboard, the screen or the screen edi- 
tor, then the device handler takes care of the 
I/O itself. If it's something like the disk drive 
or printer that's plugged into the computer, 
then the device handler sets up the DCB with 
the information it needs. 

The exception to this is the disk interface 
routine, which is also known as the internal 
disk handler. If you're not using DOS, then 
you have to set up the DCB yourself in order 
to talk to the disk drive. If you are using DOS, 
then a regular disk handler has been loaded 
into the computer and you can communicate 
with the disk drive through the lOCBs. 

DCB: The DCB (there is only one) is 
found starting at location 768. It is 12 bytes 
long and sort of like the lOCBs in the respect 
that it holds information that describes what 
kind of I/O we want to do. This time, 
however, the information is for SIO instead 
of CIO. 



SIO: The SIO routines, like the CIO ones, 
are in the OS ROM, starting at location 59716. 
SIO takes the information in the DCB and 
uses it to talk to devices that use serial I/O 
(printer, disk drive, cassette player, etc.). It 
also sets up and uses the CFB. 

CFB: Last of all, we have the CFB. Made 
up of four bytes starting at location 570, it 
helps SIO talk to the devices. The CFB is the 
one part of the I/O system that you should 
not mess around with yourself. 

Let's summarize by looking at the flow of 
information. The user sets up an lOCB and 
calls CIO. CIO takes the information in the 
lOCB, transfers it to the ZIOCB, figures out 
what device handler is needed and transfers 
control to that handler. From there, the han- 
dler takes care of internal devices, or sets up 
the DCB and calls SIO if we need to com- 
municate with a serial (external) device. Fi- 
nally, SIO takes the information in the DCB, 
sets up the CFB and does the I/O. After the 
I/O has been completed, whether by the han- 
dler or SIO, control is transferred back to the 
user. As a programmer, you can skip any of 
these steps with the exception of SIO. You 
should not skip all the way to the CFB. 

BASIC programmers may want to look at 
the excellent article in issue 13 of ANALOG 
Computing for ways to go straight to CIO. 

lOCB Command Byte Values 

The third byte in each lOCB is the com- 
mand byte, called lOCMD. This is the byte 
that tells CIO what kind of I/O we want to 
do. It can have the values in Figure 1. 



VALUE MEANING 


BASIC equivalent 


3 


OPEN channel 


OPEN#n 


5 


GET record 


INPUT #n 


7 


GET bytes 


GET#n 


9 


PUT record 


none 


11 


PUT bytes 


PUT#n 


12 


CLOSE channel CLOSE #n 


13 


GET status 


none 



Figure 1. lOCB command byte values 

In case you're wondering what happened 
to PRINT #n, BASIC uses a special vector 
to talk directly to the handler for this partic- 
ular statement. 

You should note that with the "GET 
bytes" and "PUT bytes" routines, BASIC 



only allows you to GET and PUT one byte 
at a time. 

If you access CIO directly, however, you 
can GET or PUT a whole buffer. With this 
in mind, you may ask what the difference is 
between GETting or PUTting a buffer and 
GETting or PUTting a record. If there are 
no carriage returns (End-Of-Lines or EOLs) 
in the buffer then there is no difference. A 
record, however, ends when either the end 
of the buffer is reached or an EOL en- 
countered. 

CIO takes care of all of these commands. 
Some of the devices also have their own spe- 
cial commands, which the corresponding 
device handler takes care of. Here's a list of 
those commands, which you can access us- 
ing BASIC'S XIO command: 

Display Handler 

17 DRAW line 

18 FILL 

Disk File Manager 

32 RENAME file 

33 DELETE file 

35 LOCK file 

36 UNLOCK file 

37 NOTE 

38 POINT 

254 FORMAT disk 

RS232 Handler 

32 Force short block 

34 CONTROL DTR, RTS, XMT 
36 Configure baud rate 

38 Configure translation mode 
40 Start concurrent I/O mode 

For more information on any of these com- 
mands, you should see the OS manual or the 
850 Interface manual. 

If you want to use the resident disk han- 
dler (i.e., you're not using DOS or FMS at 
all), you have to set up the DCB and then do 
a JSR DISKINV (58451). The DCB has 
different command values than the lOCB, of 
course, and a list can be found under 
DCOMND at location 770. 



Bar' to Page 3 



The first part of page 3 is used for the 
"device handlers." As the name implies, 
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device handlers are used to handle I/O to the 
various devices. What devices can we have? 
The screen (S:), the screen editor (E:), the 
keyboard (K:), the cassette player (C:), the 
disk drive (D:), the printer (P:), and the 
RS232 ports on the 850 interface (R:); all of 
these handlers, which are just machine lan- 
guage routines, are a part of the OS, with the 
exception of the RS232 handler. The RS232 
handler is stored inside the 850 interface, and 
gets transferred over to the Atari when you 
turn on the system. 

Locations 768 through 780 make up the 
Device Control Block (DCB). To use the 
DCB you must set it with the appropriate 
values and then JSR DSKINV (58451) for 
disk I/O, or JSR SIOV (58457) for other 
device I/O. 



DDEVIC 
768 



0300 



Three of the devices, S:; E:, and K:, are 
a part of the computer. The others are all out- 
side the computer, and we therefore need to 
have some way of talking to them. The "serial 
bus" takes care of that (the cords you use to 
connect the devices together are the visible 
part of the serial bus). But, since you can have 
more than one device hooked up to the seri- 
al bus, you need some way of telling the bus 
which device you want to talk to. Each device 
is therefore assigned a number (think of it as 
a phone number), and the handler gives 
DDEVIC the number of the device it wants 
to talk to. Do not change DDEVIC yourself. 

Here are the numbers for the various 
devices in Figure 2. 



Disk Drive 


49 


($31) 


Printer 1 


64 


($40) 


Printer 2 


79 


($4F) 


RS232 Port 


80 


($50) 


Cassette 


96 


($60) 



Figure 2. DDEVIC chart 



DUNIT 
769 



0301 



We can have up to four disk drives and 
RS232 ports. DUNIT holds the number of 
the disk drive, printer or RS232 port we 
want. DUNIT gets added to DDEVIC, and 

FEBRUARY A.N.A.L.O.CS. Compucing 



If you are using 

DOS, then a 

regular disk 

handler has been 

loaded into the 

computer and you 

can communicate 

with the disk drive 

through the 

lOCBs, 



the result stored in CDEVIC at location 570. 
CDEVIC is then used during the actual I/O. 



DCOMND 
770 



0302 



Once it has got the number of the device 
we want to talk to, the handler has to know 
what it should tell the device to do. For that 
we have another bunch of numbers, this time 
for the various commands in Figure 3. 



Get Sector 




82 ($52) 


Put Sector (with 


verify) 


87 ($57) 


Put Sector (w/o 


k'erify) 


80 ($50) 


Get Status 




83 ($53) 


Format Disk 




33 ($21) 


Download 




32 ($20) 


Read Address 




84 ($54) 


Read Spin 




81 ($51) 


Motor On 




85 ($55) 


Verify Sector 




86 ($56) 



Figure 3. DCOMND chart 

This is one of those tables that gives you 
the confidence that you know what's going 
on, until you get about halfway down. The 
first five commands are probably the only 
ones you'll ever run into, so don't worry too 
much about it. 

DDEVIC gets transferred over to CDEVIC 
(570) for use by SIO. 



DSTATS 
771 



0303 



Two uses for DSTATS. First of all, after 
an I/O operation is complete, it holds the sta- 
tus of the operation. A zero means that every- 
thing went OK. See the OS manual for the 
meaning of non-zero values. 

Before the I/O operation, DSTATS tells 
SIO how data is going to be transferred, us- 
ing bits six and seven as in Figure 4. 



00— 


— ($00) means no data will be 




transferred in this operation. 


01-— 


- ($40) means data is going to be 




read from the device. 


10—- 


- ($80) means data is going to be 




written to the device. 


11— 


- ($00) is not a valid combination. 



Figure 4. DSTATS chart 



DBUFLO, DBUFHI 

772,773 0304,0305 

This is a pointer to the buffer that will be 
used to store the data that is to be sent or 
received during I/0(!). It's set by the handler 
to the system buffer at CASBUF (1021) un- 
less you tell the handler differently. 

If a GET STATUS command is given, then 
DBUFLO/HI is set to point to DVSTAT 
(746). 

If you're communicating with SIO direct- 
ly, you should make sure you set 
DBUFLO/HI yourself. 



The next 14 locations (780 to 793) have var- 
ious SIO uses. 



TIMERl 
780, 781 



030C, 030D 



DTIMLO 

774 



0306 



DTIMLO is the time-out value for the 
device being used and is set by the handler. 
You will recall from our other run-ins with 
time-outs that a value of 60 here represents 
64 seconds. 

DTIMLO is initialized to 31. 



TIMERl is the initial timer value for the 
baud rate. What does that mean? Back at 
CBAULDL/H (750, 751) we discovered what 
a baud rate is and how the OS constantly ad- 
justs it during I/O. We found out that an al- 
ternating bit pattern is read and timed in order 
to figure out the correct rate. TIMERl stores 
the time at the beginning of this pattern, and 
TIMER2 below stores the time at the end of 
it. The difference in these times is then used 
to figure out the new baud rate. 

The first byte of both TIMERl and 
TIMER2 is the value of VCOUNT (54283) 
at the time, and the second is the value of 
RTCL0K-F2 (20). 



ADDCOR 

782 



030E 



DUNUSE 

775 



0307 



Another unused byte (warning, warning!). 





CASFLG 


DBYTLO, DBYTHI 


783 


776, 777 0308, 0309 





This location specifies the number of data 
bytes that are to be read to, or written from, 
the buffer during I/O. It is also used by the 
FORMAT command to store the number of 
bad sectors. 

The values in DBUFLO/HI and DBYT- 
LO/HI are added together after the I/O is 
over, and the results stored in BFENLO/HI 
(52,53). 

Just in case you thought the OS was per- 
fect, there's a bug that messes things up if the 
last byte in the buffer is in an address that 
ends in $FF (such as $41FF, $32FF, etc). Be 
careful about this. 

DAUXl, DAUX2 

778, 779 030A, 030B 

These are used to provide information that 
is unique to the specific device (a sector num- 
ber, for example). Their values are transferred 
to CAUXl and CAUX2 at locations 572 and 
573. 

SB 



ADDCOR is an "addition-correction flag" 
used in the baud-rate calculations. Those 
quotation marks mean that you'll never need 
to know what it means. 



030F 



Part of the SIO routine is not needed for 
cassette I/O, so CASFLG is used to warn SIO 
that cassette I/O is being done. A value of 
zero means regular SIO, 255 means cassette. 



TIMER2 

784, 785 



0310, 0311 



This is the final timer value for baud-rate. 
See TIMERl for a complete description. 



TEMPI 
786, 787 



0312, 0313 



TEMPI is used as a temporary storage lo- 
cafion for the difference in the TIMERl/2 
values during the baud-rate calculation. 



TEMP2 
788 



0314 



Supposedly another temporary storage lo- 
cation of some sort, but according to the OS 
listing it isn't used. 



TEMP3 
789 



0315 



Another temporary storage location that is 
used, but for nothing particularly important. 



SAVIO 

790 



0316 



Back to setting the baud rate. Remember 
the alternating bit pattern (see TIMERl if 
not)? SAVIO is used to check the serial port 
SKSTAT (53775) to see if the next bit has 
come in yet. That's all. 



TIMFLG 
791 



0317 



This is a flag to indicate that the cassette 
player has timed out (taken a snooze). If it's 
equal to one, we're OK. If it's equal to zero, 
then we're in time-out territory. 

For the cassette player to time-out, a data 
byte must not be found within the given time 
period (which can vary). This usually indi- 
cates that the baud rate was wrong, assum- 
ing that you remembered to connect the 
cassette player, plug it in, put in the program 
tape and press "Play"! 



STACK? 

792 



0318 



Remember the stack at page 1? When SIO 
first gets going, it stores the value of the stack 
pointer in STACKP. That way, if somebody 
presses BREAK before it's done, it can re- 
store the stack pointer and return to where 
it was called from. 



TSTAT 
793 



0319 



This is used to temporarily hold the value 
of STATUS (48) during I/O. 



HATABS 
794-831 



031A-033F 



We now know a little about what handlers 
do, but where do we find them? Obviously 
HATABS is going to have something to do 
with it, but before I tell you what, let's talk 
a little more about handlers. 

Each handler is made up of a bunch of rou- 
tines that perform different I/O functions. 
These functions are shown in Figure 5. 
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OPEN device 

CLOSE device 

GET BYTE from device 

PUT BYTE to device 

GET STATUS of device 

SPECIAL 

INITIALIZE device 



Figure 5. I/O functions chart 

Since SIO is going to need to know where 
each of these routines is, it's useful to keep 
the address of each routine in a table. We'll 
only need the initialization routine once, so 
we'll put a IMP instruction in the table right 
before the initialization address. Finally, we'll 
call this table the "handler entry point" ta- 
ble, which makes sense if you think about it. 

Okay, so now we have a handler entry point 
table for each of our handlers. Now we need 
a table of the addresses of these tables (aren't 
computers fun?). This is where HATABS 
comes in. Each entry in HATABS consists 
of the ATASCn value of the one character 
device name ("C", "D", "K", etc.), followed 
by the address for the handler entry point ta- 
ble for that device. So, keep in mind that even 
though HATABS is called the "handler ad- 
dress table," it is actually the handler entry 
point table address table! 

When you first turn on the computer, five 
entries are automatically set up in HATABS. 
They are for the printer, cassette player, 
screen editor, screen and keyboard handlers, 
in that order. If a disk drive is hooked up and 
turned on, then the entry for the disk han- 
dler is added. Finally, if the 850 Interface is 
hooked up and on, the entry for the RS-232 
handler is added after that for the disk. The 
addresses for the handler address table of 
each of these are shown in Figure 6. 



"P" 


58416 


"C" 


58432 


"E" 


58368 


"S" 


58384 


"K" 


58400 


"D" 


1995 


"R" 


varies 



Figure 6. Addresses for liandler address table 

The address for "R" varies depending on 
whether you have a disk drive hooked up and, 
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if so, what kind of DOS you are using. 
PRINT PEEK(813)-h256*PEEK(814) will 
give you the address for your particular setup. 

You can use the preceding addresses to take 
a look at the handler entry point tables. The 
addresses in these tables are in the same order 
that the routines were listed (OPEN, CLOSE, 
etc.). Don't forget that each address is two 
bytes long with the exception of the last one, 
which includes a IMP instruction (76). 

HATABS is 38 bytes long, which means 
there is room for 12 three-byte entries (the 
last two bytes are set to zero and ignored). 
Even if you are using the disk and RS-232 
handlers, that still leaves five entries free. 
These entries are initially set to zeros, but 
they're free for your use if you want to write 
your own handler. 

Since the task of writing your own handler 
is one that most people won't really get into, 
I'm not going to go into any more detail on 
it here. If you're interested, De Re Atari and 
the OS manual should provide all the infor- 
mation you need. 

One more thing you'll need to know. CIO 
searches for a handler address from the end 
of the table up to the beginning. This means 
that if you write your own screen handler, for 
example, CIO will use it instead of the origi- 
nal one. 

Input/Output Control Blocks (lOCBs) 

Back at locations 32 through 47, we ran 
across something called the Zero-page In- 
put/Output Control Block (ZIOCB). The ZI- 
OCB gets its values from one of the eight 
Input/Output Control Blocks (lOCBs) locat- 
ed at locations 832 through 959. Basically, 
the lOCBs are nothing more than a bundle 
of information used to communicate between 
the user and the handlers, BASIC usually 
takes care of them for you in commands like 
OPEN, PLOT, LPRINT, and so on (all the 
BASIC I/O commands). 

Each lOCB is 16 bytes long, and those 
bytes are named and used as follows: 

ICHID (one byte): This is an offset into 
HATABS (794 through 831) that points to the 
name of the device that the lOCB is OPENed 
for. For example, try the following: 



leO I0CBl=848:H(lTflB5:794 
iie OPEN »1,4,B/'K:" 
126 INDEX=PEEK(I0CB1) 
130 FRIHT "YOU just OPENe 
d device ";CHR$CPEEK£HATft 
BS+INDEK));"!" 



ICHID is set by the OS. 

ICDNO (one byte): This is die device num- 
ber. One for Dl, two for R2, etc. It is also 
set by the OS. 

ICCOM (one byte): This is the command 
that specifies what kind of I/O operation we 
are going to be doing. It is set by the user. 

ICSTA (one byte): This is the status of the 
last I/O operation. 

ICBAL/H (two bytes): This is either the ad- 
dress of the data buffer, or the address of the 
user's filename (depending on the command). 

ICPTL/H (two bytes): This is the address 
minus one of the put-one-byte routine for the 
device being used. If the lOCB isn't OPEN, 
then it points to CIO's error routine for an 
illegal put. 

ICBLL/H (two bytes): This is the number 
of bytes that still have to be transferred. Note 
that under some circumstances not all bytes 
will be transferred. 

ICAXl (one byte): This is an auxiliary byte 
(and is also called AUXl), meaning that it 
helps out ICCOM in specifying what is to be 
done. It is usually used to modify the OPEN 
command, but you can use it for your own 
handlers. With the OPEN command, it is the 
first value after the lOCB number (#n is the 
lOCB number), with the bit meanings in 
Figure 7. 



1 (1) 

1- (2) 

--1- (4) 
-1- (8) 
-1 (32) 



append 

directory 

read 

write 

OPEN screen without 

erasing screen memory 



Figure 7. ICAXl bit meanings 

Some combinations are not allowed on 
some devices. For example, OPEN#1,12,0, 
"D:TEST" would open a disk file called 
TEST, and let you read and write to that file. 
This wouldn't work on a cassette file though. 

ICAX2 (one byte): This is the second aux- 
iliary byte, and is also called AUX2. There 
is no common use for this or any of the other 
auxiliary bytes; their use depends on the han- 
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dler. For example, if AUX2 is equal to 128, 
the cassette handler will put shorter gaps be- 
tween the records on the tape when it writes 
data. 

ICAX3/4 (two bytes): These auxiliary bytes 
are used by BASIC'S NOTE and POINT com- 
mands to keep track of the sector number. 
They are not also called AUX3 and AUX4. 

ICAX5 (one byte): This is the fifth aux- 
iliary byte and is also used by NOTE and 
POINT as the number of the byte within the 
sector. 

ICAX6 (one byte): Okay, enough of the 
"this is" garbage. I won't even insult your in- 
telligence by telling you it's the sixth auxiliary 
byte. It has no specific use. 



Another neat thing you can do to the screen 
editor is give AUX1(842) a value of 13. This 
tells it to "append," which doesn't really 
make any sense. What it does, though, is act 
as though you were continually pressing the 
Return key. This lets you write a program that 
will change itself. You simply print some pro- 
gram instructions on the screen, position the 
cursor on the line of the first instruction, and 
POKE 842 with 13 to start the computer 
generating Returns, which reads in each line. 
When the computer POKEs 842 with a 12, 
the process stops and everything is back to 
normal. While you do this, the lines of code 
will appear on the screen, but you can make 
them invisible by setting the color of the let- 
ters to the color of the screen. Try this: 



lOCB two. 




I0CB3 




880-895 


0370-037F 


lOCB three. 




I0CB4; 




896-911 


0380-038F 


lOCB four. 




I0CB5 




912-927 


0390-039F; 


lOCB five. 




I0CB6 




928-943 


03A0-03AF 



You can use the lOCBs directly by POKE- 
ing the values you want into them and then 
doing a JSR SIOV (58454). See SIOV for 
more details. 

Note that the descripfions for the ZIOCB 
(32-47) are worded differently from the 
preceding descriptions, so be sure to read 
them as well for a better understanding. 



lOCBO 

832-847 



0340-034F 



This is, obviously, lOCB zero. If you're us- 
ing the screen editor, then don't use lOCBO; 
that's what the screen editor uses. If you are 
using the screen editor though, you can do 
neat things by telling the lOCB to send the 
data somewhere else, like the printer. Try this 
if you have a printer: 



im GRAPHICS 8 
lie PRIKT "Now we're on t 
he screen" 

120 POKE 838, 166: POKE 83? 
,238 

138 PRINT "Now we're on t 
he printer" 

146 POKE 838,163:P0KE 839 
,246 

158 PRINT "Now we're back 
on the screen" 



What we're doing here is changing 
ICPTL/H to point to the printer's put-one- 
byte routine rather than the screen editor's. 
Note that this doesn 't turn your computer into 
a typewriter. The screen editor isn't respon- 
sible for putting characters you type on the 
screen; it only works for things the computer 
prints on the screen. 
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16 ? CHRSC125):L15T 38 
28 FOR 1=1 TO 1088: NEXT I 
38 ? " THIS IS LINE 38" 
48 FOR 1=1 TO 188e:NEXT I 
58 ? CHHStl25) 
66 POSITION 2,18;? " 38 
?";CHRSC34);" NOH LINE 38 

SftYS SOMETHING ELSE" 
78 POSITION 8,2 
88 POKE 842,13 
98 POSITION 2,17:? "CONT" 
188 POSITION 8,2:5TeP 
118 POKE 842,12 
128 ? CHRS(125):? "NOW LE 
T'S SEE HHflT LINE 30 SftYS 

If 

130 ? "THE PROGRAM MODIFI 
ED ITSELF!" 
140 LIST 38 



Keep in mind tliat if you try and delete 
the lines that change location 842, you'll 
confuse the heck out of the computer and 
it will just keep on "pressing" Return 
forever! 

The screen editor, and therefore lOCB 
zero, is used in graphics mode and in 
other graphics modes that use text win- 
dows. Since lOCB zero is dedicated to the 
screen editor, however, you should stay 
away from it even if you're not using the 
text editor. 

lOCB zero is not closed by a NEW, RUN 
or LOAD command. All the others are. 



848-863 


0350-035F 


lOCB one. 




I0CB2 




864-879 


0360-036F 



lOCB six. If you're in a mode other than 
zero, then lOCB six is used for the screen 
(lOCB is used for the text window). 



I0CB7 
944-959 



03BO-03BF 



lOCB seven is used by BASIC for I/O to 
the printer, disk drive and cassette. That 
means that this is a pointer to the buffer that 
will be used to store the data that is to be sent 
or received during I/O (!). It's set by the han- 
dler to the system buffer at CASBUF (1021) 
unless you tell the handler differently. 

If a GET STATUS command is given, then 
DBUFLPO/HI is set to point to DVSTAT 
(746). 

If you're communicating with SIO direct- 
ly, you should make sure you set 
DBUFLO/HI yourself. 



PRNBUF 

960-999 



03C0-03E7 



This is the print buffer, 40 bytes long, 
used in sending data to a printer. See 
PBPNT (29; $001D) and FBUFSZ (30; 
$001E) for details on how this works. 

Forty bytes, as you may be aware, is 
somewhat shorter than most printer lines 
(most have 80 character hues). The OS can 
usually handle this, but sometimes it runs 
into problems. Semi-colons and commas at 
the end of LPRINT statements especially 
tend to mess it up. Several sources briefly 
mention that the Atari can deal with an 80 
column printer if you call it "P2." If this 

FEBRUARY A.N.A.L.O.Q. Computing 



fs true, then you have to OPEN a special 
lOCB for it and therefore couldn't use 
LPRINT (you'd have to use PUT and the 
likes). You're probably better off just to 
put up with the quirks. 



Noname 
1000-1020 



03E8-03FC 



These bytes are marked as being spare, but 
again, be careful about using them. 



CASBUF 
1021-1151 



03FD-047F 



This is the cassette buffer, which is where 
the cassette handler reads and writes data 
from and to. It's also used to hold the first 
disk record when a disk is booted (the OS 
doesn't know where to put the disk file in 
memory until it gets a chance to look at this 
record; see BOOTAD [578,579]). 

A cassette record is made up of 132 bytes. 
Only 128 of these are actual data; the other 
four help out the cassette handler. How? I'm 
glad you asked. The first two bytes, as we 
learned at CBAUDL/H (750, 751), are used 
to help the handler figure out the correct baud 
rate. The third byte tells the handler how 
much data is in the file. It can have the fol- 
lowing values: 

A value of 250 means that there are less 
than 128 bytes of meaningful data (there will 
still be 128 bytes, but some of them toward 
the end will be zeros). The 128th data byte 
will give the actual number of meaningful 
bytes. 

A value of 252 means that all 128 bytes are 
important. 

A value of 254 means that this is the last 
record in the file and all 128 bytes will be 
equal to zero. 

The next 128 bytes are the actual data. No- 
tice that they will be stored in CASBUF start- 
ing at 1024 and ending at 1151. 

But wait, that was only 131 bytes and you 
said there were 132. Where does the 132nd 
go if we already filled the buffer? The last 
byte in a cassette record is the checksum, 
which is used to make sure that the rest of 
the data was read correctly. It gets stored at 
CHKSUM (49), and you should take a look 
at CHKSUM for a more detailed description 
of how a checksum works. 

Take a look at BPTR (61) and BUM (650) 
for more information on the way the buffer 
is used. 
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Locations 1152 through 1791 are not used 
by the OS. Most of them are, however, used 
by BASIC and/or the floating point package. 
Only the locations in page 6 (1536 to 1791) 
are not used by either. See page 6 for more 
information. 



SYNSTK 
1152-1405 



0480-057D 



This is BASIC'S syntax stack. Unfortunate- 
ly, since there doesn't seem to be any infor- 
mation on what it's for, I can't explain it to 
you (I never claimed to be perfect). I suspect, 
however, that it's used during the tokeniza- 
tion of the BASIC program, since BASIC has 
the runtime stack (see RUNSTK [142,143]) 
to use when the program is actually running. 



LBPRl 

1406 



057E 



LBUFF prefix 1. Again, no information on 
this one. 



LBPR2 

1407 



057F 



LBUFF prefix 2, also not explained 
anywhere. 



LBUFF 
1408-1535 



0580-05FF 



Before I go on, a few words on locations 
like these. Atari was very nice in releasing 
the OS listing; a lot of other computer com- 
panies don't. Atari did not, however, because 
of legal restrictions, extend that niceness to 
BASIC and the floating point package. There- 
fore, locations that are used by these two are 
very difficult to explain. The useful locations 
have been documented, so they can be un- 
derstood and used by yourself. Ones like 
these, however, are somewhat obscure, so 
that you should never have to use them. In 
other words, don't feel that you're not get- 
ting something you'll need. 

Now that I've freed myself from the 
responsibility of properly explaining these lo- 
cations, I'll actually give you some informa- 
tion on this one. This is a buffer used in 
converting floating point values to ATASCII 
values. It's pointed to by INBUFF at loca- 
tions 243 and 244. Now INBUFF supposedly 
points to the buffer used to convert ATAS- 
CII to floating point, so I suspect that LBUFF 



swings both ways. 

LBUFF is also referred to as the "input line 
buffer," which implies that this is where a 
BASIC line is stored when you first type it in. 

Location 1535 is the last byte in the buffer 
and so it is also called LBFEND. Notice that 
the next three locations are all within LBUFF. 



PLYARG 

1504-1509 



05EO-05E5 



Polynomial arguments. Sure! 



FPSCR 

1510-1515 



05E6-05EB 



This is like a work area for the floating 
point package. 



FPSCRl 
1516-1535 



05EC-05FF 



The same, only bigger. 



Page 6 



Locations 1536 through 1791 are normal- 
ly not used by the OS, BASIC or the float- 
ing point package. That leaves them free 
for your use. (Page 6 is a good place to 
store a machine language routine.) Now I 
did say that they are "normally" not used. 
That means that they're not completely 
safe. If you try and INPUT more than 128 
bytes during I/O, then the extra bytes are 
stored in page 6. That means one of two 
things. Either don't INPUT more than 128 
bytes at a time, or only use the second half 
of page 6 (locations 1664 through 1791). 
These locations are absolutely guaranteed 
not to be used by anything no matter what. 

Please notice that I only said the OS, 
BASIC and the floating point package 
wouldn't use page 6. If you are using 
another language, it might, so check the 
documentation that comes with it. 



Page 7,8,9.,.. 



If you're not using a disk drive, then lo- 
cation 1792 is the beginning of free 
memory. If you're using BASIC, "free 
memory" doesn't mean memory for you 
to use; it means memory for BASIC to use. 
There's a difference between the two, and 
you should go back to locations 128 
through 145 if you don't know what it is. 

If you are using a disk drive, then the 



locations from 1792 to the address stored 
in MEMLO (743, 744) are used by DOS 
and tlie File Management System (FMS). 
The value of MEMLO will depend on the 
version of DOS that you're using, and also 
on a couple of other things that will be 
mentioned next. Use PRINT PEEK (743) 
+PEEK(744)*256 to find out the value for 
your particular setup. 

This column is designed to teach you 
about your Atari and not about DOS, so 
I'm not going to go into any detail about 
how DOS works or what the locations are 
for. If you're interested in DOS, take a look 
at COMPUTE'S book Inside Atari DOS. 

Free RAM 

The memory area from the address 
pointed to by MEMLO (743, 744) up to 
that pointed to by RAMTOP (106) is free 
RAM. That doesn't mean you didn't pay 
for it; it means that it is unused. If you are 
using BASIC, then your program uses the 
memory from the address pointed to by 
MEMLO up to the address pointed to by 
MEMTOP (144, 145). 

As mentioned already, the value of 
MEMLO will depend on whether or not 
you are using disk (and the RS-232 han- 
dler, which takes up another 1728 bytes). 
The value in RAMTOP depends on how 
much total memory you have. The various 
values it can have are listed in Figure 8. 
Don't forget that the value in RAMTOP 
is the high byte of the address (the num- 
ber of pages). 



MEMORY 


RAMTOP 


BYTES 


8K 


32 


8192 


16K 


64 


16384 


24K 


96 


24576 


32K 


128 


32768 


40K 


160 


40960* 


48K 


192 


49152* 



Figure 8. RAMTOP chart 

*These values depend on whether or not 
any cartridges are in place. See the sec- 
tions on cartridges. 

Cartridge B (right cartridge) 

The cartridges are a strange breed. They 
contain their own 8K of ROM, yet they 

BO 



feel the need to shove 8K of RAM out of 
the way in order to run. The right car- 
tridge gives notice to locations 32768 
through 40959 ($8000 through $9FFF). 
This means that if you have 40K of RAM 
or more, you'll lose 8K of it. Note that 
since the 800 is the only Atari that has a 
right cartridge slot, few companies have 
cartridges for the slot. 

If a right cartridge is present, TRAMSZ 
at location 6 gets set to one during 
powerup. 

Cartridge A (left cartridge) 

Okay, all Atari computers have a left car- 
tridge slot. Since it may be the only slot, 
it makes more sense to refer to it as car- 
tridge A. 

Cartridge A takes up memory locations 
40960 through 49151 ($A000 through 
$BFFF). This will only affect you if you 
have 48K of RAM, since these locations are 
the last 8K. 

The last six bytes in a cartridge provide 
the information that the OS needs in or- 
der to run the cartridge. Thus: 

49146, 49147 ($BFFA, $BFFB) holds the 
starting (run) address of the cartridge. 

49148 ($BFFC) equals zero if a cartridge 
is plugged in, and doesn't if one isn't. 

49149 ($BFFD) tells the OS how to get 
the cartridge going. If bit is set, then the 
OS boots the disk before it runs the car- 
tridge. If bit 2 is set, then the cartridge is 
initialized but not run (if it's not set then 
it gets run). 

49150, 49151 ($BFFE, $BFFF) holds the 
initialization address of the cartridge. 

Note that these addresses are all for car- 
tridge A. For cartridge B, just subtract 
8192 from each address. 

If cartridge A is present, TSTDAT at lo- 
cation 7 gets set to one during powerup. 

If you're using BASIC, then BASIC is 
cartridge A. Because this book is designed 
to teach you about your Atari, and not 
about the languages that can be used with 
it, I'm not going to give you a detailed list- 
ing of all the locations in BASIC. Don't feel 
as though you're missing out on something 



great, however; there's very little in there 
that would be useful to you. The OS list- 
ing does mention four routines, however, 
so I will mention those. 



SIN 
48551 



BDA7 



This routine calculates the sine of the num- 
ber in floating point register zero (FRO). You 
should talce a look at FRO (212 to 217) and 
RADFLG (251) if you're going to try to use 
it. It might also help to disassemble the code 
for the routine to get an idea of what's going 
on. 

COS 

48561 BDBl 

This routine calculates the cosine of FRO. 



ATAN 
48759 



BE77 
The arctangent of FRO. 



SQR 

48869 



BEE5 



And lastly, the square root of FRO. Note 
that the carry is significant in all of these 
operations, in that it will be set if an error 
occurs during the operation. C\ 
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Attention 
Programmers! 



ANALOG Computing is interested in programs, articles, and software review sub- 
missions dealing with the Atari home computers. If you feel that you can write as well 
as you can program, then submit those articles and reviews that have been floating 
around in your head, awaiting publication. This is your opportunity to share your knowl- 
edge with the growing family of Atari computer owners. 

All submissions for publication, both program listings and text, should be provided 
in printed and magnetic form, Typed or printed copy of text is mandatory and should 
be in upper and lower case with double spacing. By submitting articles to ANALOG 
Computing, authors acknowledge that such materials, upon acceptance for publica- 
tion, become the exclusive property of ANALOG Computing. If not accepted for pub- 
lication, the articles and/or programs will remain the property of the author If submissions 
are to be returned, please supply a self-addressed, stamped envelope. All submissions 
of any kind must be accompanied by the author's full address and telephone number 



Send your programs and articles to: 

ANALOG Computing 

P.O. Box 1413-M.O. 

Manchester, CT 06040-1413 
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M/L EDITOR 



For use in machine-language entry. 



by Clayton Walnum 



M/L 



Editor provides an easy 
method to enter our 
machine-language list- 
ings. It won't allow you 
to skip lines or enter bad 
data. For convenience, you may enter listings 
in multiple sittings. When you're through typ- 
ing a listing with M/L Editor, you'll have a 
complete, runnable object file on your disk. 

There is one hitch; It's for disk users only. 
My apologies to those with cassette systems. 

Listing 1 is M/L Editor's BASIC listing. 
TVpe it in and, when it's free of typos, save 
a copy to disk, then run it. 

On a first run, you'll be asked if you're 
starting a new listing or continuing from a 
previously saved point. Press S to start, or 
C to continue. 

You'll then be asked for a filename. If 
you're starting a new listing, type in the file- 
name you want to save the program under, 
then press RETURN. If there's already a file 
by that name on the disk, you'll be asked if 
you wish to delete it. Press Y to delete the 
file, or N to enter a new filename. 

If you're continuing a file, type in the name 
you gave the file when you started it. If the 
program can't find the file, you'll get an er- 
ror message and be prompted for another file- 
name. Otherwise, M/L Editor will calculate 
where you left off, then go on to the data en- 
try screen. 

Each machine-language program in 
ANALOG Computing is represented by a list 
of BASIC data statements. Every hne contains 
16 bytes, plus a checksum. Only the numbers 
following the word DATA need to be con- 
sidered. 

M/L Editor will display, at the top of the 
screen, the number of the line you're current- 
ly working on. As you go through the line, 
you'll be prompted for each entry. Simply 



type the number and press Return. If you 
press Return without a number, the default 
is the last value entered. 

This feature provides a quick way to type 
in lines with repetitions of the same number. 
As an added convenience, the editor will not 
respond to the letter keys (except Q for 
"quit"). You must either enter a number or 
press Return. 

When you finish a line, M/L Editor will 
compare the entries' checksums with the 
magazine's checksum. If they match, the 
screen will clear, and you may go on to the 
next line. 

If the checksums don't match, you'll hear 
a buzzing sound. The screen will turn red, 
and the cursor will be placed back at the first 
byte of data. Compare the magazine listing 
byte by byte with your entries. If a number 
is correct, press RETURN. 

If you find an error, make the correction. 
When all data is valid, the screen will return 
to gray, and you'll be allowed to begin the 
next line. 

Make sure you leave your disk in the drive 
while typing. The data is saved continuously. 

You may stop at any time (except when you 
have a red screen) by entering the letter Q for 
byte 1. The file will be closed, and the pro- 
gram will return you to BASIC. When you've 
completed a file, exit M/L Editor in the same 
way. 

When you've finished typing a program, 
the file you've created will be ready to run. 
In most cases, it should be loaded from DOS 
via the L option. Some programs may have 
special loading instructions; be sure to check 
the program's article. 

If you want the program to run automati- 
cally when you boot the disk, simply name 
the file AUTORUN.SYS (make sure you have 
DOS on the disk.). 



The two-letter checksum code pre- 
ceduig the line numbers here is not 
a part of the BASIC program. For 
more information, see the "BASIC 
Editor n" elsewhere in this issue. 



LISTING 1: BASIC LISTING 



*Z IB DIM BFC16),H$C4],A$C1},B$(1),F$(15] 

.FlStlS) 
IT 11 DIM H0D$C4> 
»» 20 LINE=1000:RETRN=155IBACKSPz1Z6ICHKS 

UM=0:EDIT=B 
GO 30 G05UB 4501P0SITI0N 10,6;? "Btart Or 

Hontinue? "fiGOSUB 5001? CHR$1A) 
ZS 40 POSITION 10,81? "FILEHflME") 1 INPUT F 

SlPOKE 752,11? " " 
re 50 IF LEN(FS)<3 THEN POSITION 20,101? 

" "IGOTO 40 
*f 60 IF FS{1,21<>"D:" THEM FlS="D 1 " I FIS C 

3)=F$1G0T0 80 
ItL 70 F1S = F$ 

TM 88 IF CHBSt01="5" THEN 120 
r» SO TROP 43010PEN 02, 4, B, Fl$ 1 TROP 110 
HO 100 FOR K = l TO 16 1 GET n2,(llNEKT XlLINE 

=LINE+101C0T0 100 
HM 118 CLOSE nZlOPEN 02 , S, B, Fl$ 1 GOTO 170 
«T 120 TROP 16010PEN 02 , 4, B, FlS 1 GOSUB 440 
1P05ITI0N 10,101? "FILE 0LRE6DY EKIST5 
! !"1P0KE 752,8 
ZU 130 POSITION 10,121? "ERflSE IT? "J1C05 

UB 5001P0KE 752,11? CHRS«H 
MH 140 IF CHRS(0)="N" OR CHRS(0)="n" THEN 

CLOSE 021GOTO 38 
Oe 150 IF CHR5t(S)<>"V" AND CHR$Ca)<>"u" T 

HEN 130 
OH 160 CLOSE O210PEN n2,8,e,Fl$ 
IE 170 GOSUB 450;P0SITI0M 18,11? ' l'lil«il.'« 

m.'ia : ••;LINE1CHK5UM=8 
GH 180 L1=31F0R K=l TO 161P0SITI0N 13»tK< 

10)*12)t(K>?J ,Kt2lP0KE 752,01? "BVTE O" 

JK;"i "; 1G0SU8 318 
KH 190 IF EDIT AND L = B THEN BYTEzBF («) 1 CO 

TO 218 
FY 200 BVTE=UAL(N$) 
OZ 201 MODSzNS 

BU 210 POSITION 22,X+2l? BYTE;" " 
VZ 220 BF(X)=BYTEICHKSUM=CHKSUMtBYTE»KlIF 

CHKSUM>9?59 THEN CHKSUM=CHKSUH-108eO 
H5 230 NEXT KlCHKSUM=CHKSIlMtLINElIF CHKSU 

M>9995 THEN CHK5UM=C1IK5UM-10000 
IG 240 POSITION 12,X+2lP0KE 752,01? "CHEC 

KSUMl "; 1L1=41 GOSUB 310 
EH 250 IF EDIT AND 1=8 THEN 278 
OM 268 C=VAL(HS) 

SY 270 POSITION ZZ,Xt2l? C;" " 
IL 280 IF C=CHK5UM THEN 300 
M 290 GOSUB 4401EDIT=llCHKSUM=0lC0T0 180 
LH 300 FOR X = l TO 161PUT n2 , BF tX) 1 NEXT Xl 

LINE=LINEtl01EDIT=0lC0TO 178 
FM 318 L=8 
KZ 328 GOSUB 5001IF [A=A5CC"Q") OR A=ASCC 

"q")) AND X:l AND HOT EDIT THEN 4Z8 
PO 338 IF AORETRN AND AOBACK5P AND (A<4 

8 OR A>57) THEN 328 
OK 331 IF A=RETHH AND HS="" THEN NS=MOD$ 
TO 335 IF A=RETRN AND L=8 AND X>1 THEN 35 

8 
M 348 IF tCA=RETRN AND NOT EDIT) DR A=B 

ACKSP) AND L=0 THEN 320 
DM 350 IF A=RETRN THEN POKE 752,11? " "IR 

ETURN 
GC 360 IF AOBACKSP THEM 488 
SA 378 IF L>1 THEN NS = M5 (1, L-1) 1 GOTO 390 
AS 380 NS="" 

RE 390 ? CHRSCBACKSP) ; ;L=L-11G0T0 320 
BB 400 L=L+11IF L>L1 THEN A:RETRN1GOTO 35 


HX 410 NS(LI=CHRSCA) 1? CHRS CA) ; 1 GOTO 320 
KN 420 GRAPHICS OlEHO 
YT 430 GOSUB 4401P0SITI0N 10,181? "NO 5UC 

H FILE!"1F0R X = l TO lOOOlNEXT X 1 CLOSE 

aaicoTO 30 

FO 440 POKE 718,481S0UND , 108 , 12 , 8 1 FOR X 

= 1 TO 501NEXT XlSOUND 8 , 0, , 8 : RETURN 
MY 458 GRAPHICS 231P0KE 16,1121P0KE 53774 

,1121P0KE 559,0lP0KE 710,4 
XR 468 DL = PEEK(5601»2S5I<PEEKCS61)+41P0KE 

DL-1,701P0KE DL+2,6 
MH 470 FOR X=3 TO 39 STEP 21P0KE DL+X,2lN 

EXT XIFOR X=4 TO 40 STEP 21P0KE DL+X,8 

ZH 480 POKE DL«41,651P0KE DL*42 , PEEK (568) 
IPOKE DLt43,PEEK(561) IPOKE 87,0 

AC 490 POSITION 2,01? "analog Ml editor"l 
POKE 559,34lRETURN 

HZ 500 OPEN nl,4,e,"Kl"lGET Ol.AlCLOSE 01 

IRETURN ^m 
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1 12-volt 3-amp-hour gel-cell 

(DSE S-3320) 
Use charger (DSE M-9521) 
CI 2200 uf capacitor (RS 272-1020) 
Dl l.S-amp bridge rectifier 

(RS 276-1151) 
D2 3-amp blocking diode (RS 276-1141) 
Fl 1-amp fuse (RS 270-1273) 
holder (RS 270-739) 
ICl LM317T adjustable regulator 

(RS 276-1778) 
mounting kit (RS 276-1373) 
heat-sink grease (RS 276-1372) 
LEDl Red LED (RS 276-041) 
PI Power cord (RS 278-1255) 
P2 7-pin DIN plug, not at Radio Shack 

but available at many electronics 

stores. (ALL #DIN-7M) 
Rl 560-ohm, 1/2 watt resistor 

(RS 271-020) 
R2 180-ohm, 1/2 watt resistor 

(RS 271-014) 
R3 330-ohm, 1/2 watt resistor 

(RS 271-017) 
SI DPDT switch, 6-amp rating 

(RS 275-652) 
Tl 12-volt, 1.2-amp transformer 

(RS 273-1352) 
Misc Metal cabinet (RS 270-252) 

Strain reliefs (RS 278-1636) 

4 feet of 18-gauge wire for com- 
puter power cable or another PI 

with plug cut off. 



CR13 
* IN <»00l 




C71. 



IN 



= t/OOuF is*' 



OUT, 



R70 

r-N\hr 



ff 



POWER ON 



ISOA CR21 

ITP13 



■♦♦5V 



^ T.l "r»7ul 
16V 



J»7uF 
I 



CR16 

IN «00( 



Q8 



®TPl» 

^ ■, ^ .. ^NptiTpyi^ .^ y, 

»700uF jLTca XcSfi' f- l ' i.C63 J^C70 



35V 



B 



CM 

r»700ijFX-' 



1.1 T ♦7uF 
I 16V 



12V 



I 



TP13 



FEBRUARY A.N.A.L.a.C3. Computing 



k 



L 




■^ 



i 



B 



P3 



-k 



FIGURE 5 



I- 



1 




Jo 
Regulator 



■A 
■B 



P3 



To n 

Primary 



■^Ground 



Power plug for battery pack 
(RS 274-1565 and 274-1567) 

For 3-amp modifications, substitute: 

Dl 4-amp bridge rectifier (RS 

276-1146) 
Tl 3-amp transformer (RS 273-1511) 

Additional parts for disk-drive power adaptor: 

5-pin DIN plug (RS 274-003) 

jack (RS 274-005) 

RYl Relay, 110 volt (RS 275-220) 

3 2-foot lengths of 20-gauge wire 
(RS 278-1293) 

3 mini test clips (RS 270-372) 
Power inverter: TrippLite PV-200 
Jameco PV-200 
Sears 28-b-71522 
NOTE: this device uses 3.5 to 18 amps and 
requires a large battery such as an automo- 
tive battery. 

SOURCES 

AU Electronics (ALL) 

P.O. Box 20406 

Los Angeles, Ca. 90006 
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Dick Smith Electronics (DSE) 

P.O. Box 8021 

Redwood City, Ca. 94063 

Jameco Electronics 
1355 Shoreway Rd. 
Belmont, Ca. 94002 



Radio Shack (RS) 

Check phone book for local listing. 

Sears and Roebuck 

Check phone book for local listing. 
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What kind of music do you like? 
Hmmm? I love electronic music: 
Kraftwerk, Philip Glass, Wendy 
Carlos, Tomita, Vangelis, Giorgio 
Moroder and, of course, Tanger- 
ine Dream. In fact, I am listening to the latest 
Tangerine Dream CD, Optical Race, right 
now. Excellent CD! I find it's a great way to 
write, just put on the music, crank up the 
volume, and let it flow. 

I mention Tangerine Dream not only be- 
cause they are a great group that makes ter- 
rific music, but also because they have a link 
to Atari. As it states on the liner notes on the 
back of the CD, "This album has been 
produced on the Atari ST using Stein- 
berg/Jones Software." We know that the Atari 
ST is a powerful computer. It seems that Tan- 
gerine Dream knows it too. The ST is becom- 
ing very popular with musicians because of 
the built-in MIDI ports, power of the com- 
puter and reasonable cost. Just thought I'd 
mention it. 



The Arthur Leyenherger 

Memorial Museum of Computers 

& Technology 

Welcome to the museum. Well, it's not 
actually a real museum but it comes pret- 
ty close. You see, it's my basement, and 
it's filled with Atari computers, software 
and memorabilia (I hate that word) from 
close to seven years as an Atari enthusiast. 
Yes, I am an Atari enthusiast and continue 
to be one. Let me take you on a tour, but 
don't worry; there is no admission charge. 

Where shall we start? How about this: 
It's a disk labeled Data Perfect by LJK En- 
terprises. This is a real blast from the past. 
Back in 1981 or thereabouts, there were 
several database programs for the Atari 
800. The two most popular titles were File 
Manager 800 by Synapse and Data Perfect. 

File Manager, if I recall correctly, came 
out first and was quite powerftil for its tune. 
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But it didn't have report-writing capabili- 
ty. The only way to retrieve information 
was to do it interactively. Then came Data 
Perfect. This program was very sophisti- 
cated for its time, especially on an Atari 
8-bit computer. 

Trouble was, the manual was downright 
terrible. I think it belongs in the "Poor 
Documentation Hall of Fame." Anyway, I 
remember I was editing and publishing a 
user-group newsletter at the time, and I 
wanted to keep track of the mailing list. 
The list was already created with File 
Manager 800, but I wanted the report- 
writing capability of Data Perfect. 

So I go through a lengthy conversion 
process and then begin the long journey 
towards Data Perfect report-writing self- 
actualization. To end a long story, I never 
did achieve the results I was looking for. 
I spent an entire weekend, Saturday and 
Sunday (damn the chores) trying to learn 
how to use the report-writing capability of 
this blasted program. I never did! From that 
point on, I put the program back on the 
shelf and refused to even open the manual 
ever again. 

As bad as Data Perfect was in that 
respect. Letter Perfect, LJK's word proces- 
sor was clearly the best in the league. I did 
all of my writing for the club newsletter us- 
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ing that program. Further, I used Letter 
Perfect exclusively when 1 wrote for Crea- 
tive Computing for a year. 

One of the best things about the program 
was that it worked with the Bit-3 80-column 
board. Using a composite monochrome 
monitor and the 80-column version of Let- 
ter Perfect, I was using a system similar to 
that of the "big rig" Apples and CP/M 
machines. I still have the Letter Perfect disk, 
manual and some 8-bit disks with articles. 

Ah, the Bit-3 80-column board. This 
baby sat in the last slot of the Atari 800, 
which meant you had to have a 32K 
memory card in the second slot if you 
wanted a full 48K. With the Bit-3, a Mosaic 
32K board (I wonder where they are these 
days), an Atari 16K memory card and an 
Omnimon system card, my system ran hot- 
ter than my '67 BMW with the bad head 
gasket. I had to keep the cover off the com- 
puter to prevent a meltdown within a half- 
hour. Man, those were the days. 

The "Journalism Exhibit'^ 

In this exhibit of the museum, we have 
some rare and notable computer maga- 
zines. Here is the first issue of Byte — Tlie 
Small Systems Journal, as it was billed at 
the time. The issue is dated September, 
1975 and carried a cover price of a buck 



and a half. The cover stories seem almost 
quaint by today's standards: "Which 
Microprocessor For You?," "Cassette 
Interface— Your Key To Inexpensive Bulk 
Memory" (I learned the hard way about 
cassette storage with my finicky Atari 410 
cassette drive), and "Recycling Used ICs." 
It was clear that, in those days. Byte was 
a hacker's magazine. 

Leafing through that first issue, it ap- 
pears that half of the ads were for test 
equipment, power supplies and integrated 
circuits. There is an ad for the Altair 8800 
Computer Kit, a $1,000 system with 4K of 
memory, serial and parallel interfaces, and 
cassette interface. I had almost forgotten 
that these early computers did not use key- 
boards or monitors. You had to attach a 
teletype if you wanted to enter programs 
from a keyboard. We have sure come a long 
way since 1975. 

The "journalism exhibit" also includes 
many first issues of magazines long gone, 
such as ROM, OnComputing, Creative 
Computing, Personal Computing, SCCS 
Interface and Peoples ' Computers. There 
are also some first issues of still-existing 
mags such as ANALOG (of course), Ami- 
ga World (what a fluff piece). Publish and 
CD-ROM, among others. A thesis could 
easily be written on the social psychology 
of individual computing, just by reading the 
information in these primary sources. 

No serious museum is complete without 
key issues of InfoWorld magazine. Here is 
one dated February 27, 1984 with the head- 
line "Is Atari Going Down the Tubes?" 
There is a picture of James Morgan on the 
cover (who?). In addition to the somewhat 
ironic cover story, there are some other 
neat and/or prophetic articles, too. How 
about a small article discussing the depar- 
ture of Jack Tramiel and other executives 
from Commodore. Here's one: "Mattel 
Drops Intellivision." Interesting reading for 
the serious video-game historian. Another 
one: "TI Leaves Home Market." Still 
another: "Eastern OKs Use of Portable 
Computers in Flight." This issue is chock 
full of interesting stuff. 

Later that year, in the InfoWorld dated 
August 6, 1984, the cover story is "Tramiel 
Moves In; Can He Save Atari?" Another 
great collection of articles and news, histor- 
ically speaking. Finally, take a look at the 
January 28, 1985 issue, just six months 
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later. The cover story: "Atari Unveils Its 
'Jackintosh: " The years 1983, 1984 and 
1985 were hectic ones. I wonder how we 
survived it all? 

The Hardware Room 

In the hardware department, I'd like to 
share a few rare items that archaeologists 
may someday be unable to explain. First, 
there is my Nibble Notcher. This little fel- 
low gave me years of service, notching out 
the left side of my 8-bit floppy disks. This 
allowed me to use the backside of the disk 
in my 810 disk drive. 

Controversy surrounded this technique, 
with one side arguing that the backside 
wasn't a reliable surface for data and that 
the opposite rotating of the flipped disk 
could somehow cause drive damage. The 
supporters of the technique, and myself, 
were seeking a solution to the high cost of 
floppy disks at the time. Come to think of 
it, I never lost any data by using the back- 
side of a disk in that manner. 

Oh yes, here is my dongle. Actually it 
is a Batteries Included dongle. This little 
widget was inserted into the second joystick 
port of the 800 in order to run Paper Clip, 
the best of the third-generation 8-bit word 
processors. The idea of copy protection, in 
whatever form, brings back some fond and 



not-so-fond memories. As it turned out, 
companies stopped using copy protection 
for all but game software once they real- 
ized that the pirates (read: software thieves) 
were always just one step behind. 

Here is another interesting hardware 
item: a Blaster. This is a device that is in- 
serted in between your joystick and the 
computer. It has a rotary control on it to 
allow you to speed up the number of pulses 
of the fire button. At the highest setting, 
every time you pressed the joystick button 
about 20 to 30 impulses were sent to the 
computer. What a way to improve your high 
score standings in 8-bit shoot-'em-up video 
games. 

Over in the corner is Andy the Robot. 
Do you remember Andy? One of Nolan 
Bushnell's (Atari's founder) many compa- 
nies was Axlon. They started off in the ear- 
ly 1980s making memory boards for the 
800 computer. Then they branched out into 
toys and other stuff. Andy was connected 
by a tether to one of the joystick ports and 
could be controlled by a program running on 
the 8-bit computer. It was a simple control 
mechanism— left, right, blink eyes, forward 
and backward— but it was one of the first 
robot-controlled devices for the Atari com- 
puter. Andy is silently keeping me compa- 
ny, even today, as I write. Say "Hi" to the 
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folks at home, Andy. 

Another robot that keeps me company is 
Andy's friend, Verbot. Verbot is a voice- 
controlled robot made by Tomy. You would 
program voice commands into a remote 
microphone and then Verbot would respond 
to your verbal instructions. I thought this was 
neat enough by itself, but I took it a step fiir- 
ther. I wrote a BASIC program that produced 
eight unique sounds, each produced by press- 
ing a key on the 800 keyboard. 

I used this method to program Verbot by 
placing the microphone next to the monitor 
speaker and pressing the various keys on the 
Atari. It was pretty neat to be able to put Ver- 
bot through his paces under my keyboard 
control. If you're interested, I wrote about it 
in the August, 1985 End User. That column 
even includes the BASIC program. Have fun. 

Space does not permit reminiscing about 
some of the other hardware laying around. 
Things like the Atari Light Pen, a handful of 
drawing tablets, the MIDI-Mate 8-bit inter- 
face, the collection of Hewlett-Packard cal- 
culators dating back to 1974, and an 
assortment of patch cables and AC adapters 
of which I'll probably never know their ori- 
gin, will have to wait until your next visit to 
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the museum. Gee, if we had more time, I 
really wanted to tell you about the Relax bio- 
feedback system. Oh well. 

Software Central 

I could spend days talking about the mul- 
titudes of software I have kept all these 
years. There is my prize collection of ev- 
ery Electronic Arts 8-bit game. Some real- 
ly great stuff like Pinball Construction Set, 
M.U.L.E. , Seven Cities of Gold and more 
than a dozen more. Then there is the three- 
volume set by Odesta of Chess, Checkers 
and Odin (a Reversi-type game). These 
three 8-bit games are some of the finest 
ever produced by anyone. They have ex- 
cellent documentation, packaging, game 
play and game options. If you wanted to 
study human-computer interaction or soft- 
ware engineering, this would be the place 
to start. 

Vncategorical Department 

Another one of the more important 
museum collections is the entire set of Atari 
press kits since 1983. You want memories? 
You want intrigue? You want history. Read- 



ing these press kits is like looking at the 
medical history of Atari. Products that 
never were, such as Mind Link and the 
8-bit CP/M Box are here for the viewing. 
Such rare conceptions as the 260ST, the 
portable 8-bit computer, the Atari Educa- 
tional Dept. — all fantasies of a company 
trying to find its soul (well, maybe) — are 
part of the permanent record in these ar- 
chives. By golly, the last six years hold a 
lot of excitement and memories. 

Cleaning Up 

I didn't discuss half of the junk . . . 
er. . .valuable mementos I have laying 
around. (Have you ever seen a Shanner 
Planner?) To do so, I would probably need 
an entire issue of ANALOG. Anyway, 
these things sure have a lot of memories. 
It is hard sometimes to recall those early 
times when I first had my Atari computer. 
There was a certain excitement in learning 
to use the machine, programming in BA- 
SIC, trying to get the cassette recorder to 
work and purchasing a new software title. 

The notion of having my own computer 
was a thrill. Each new thing I learned to 
do with it seemed like a major discovery 
and accomplishment. I couldn't wait to read 
everything I could get my hands on that dis- 
cussed this marvelous new device. It cer- 
tainly was a time for learning and immense 
satisfaction. In a way, I have lost my com- 
puter innocence. 

You may have some of this stuff collect- 
ing dust in your basement, too. Don't throw 
it out! It may be valuable some day. Who 
knows, 20 years from now (or sooner) 
these programs, hardware items and other 
knick-knacks may be true collectibles, 
perhaps as popular a hobby as collecting 
and trading baseball cards are today. 

It has been fun sharing this journey back 
in time. You know, I guess that is one of 
the things that has not changed. Although 
I know much more about computers and 
software than I did long ago, and maybe 
there is less excitement with the release of 
new hardware and software products, I still 
enjoy sharing information about Atari com- 
puters. I'm fortunate that I have this forum 
every month to do just that. 

As they say in the commercials, thank 
you for your support. See you next time, 
friend. fl 
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by Earl DaviOson 

I have a tendency to change my mind 
about variable names as I write pro- 
grams. However, changing the name of 
a variable which is used many times 
throughout a program can be a pain, 
since BASIC provides no command to do this 
for us, and there is no search-and-replace 
fiinction. I wrote the Variable Name Table 
Editor to give me an easier way to change 
variable names. It reads the header and Vari- 
able Name Table (VNT) from a SAVEd file, 
allows each variable name to be edited, then 
writes a new file to disk. 

As an Atari BASIC program is entered, 
each text line we type with the BASIC editor 
goes through a process often called pre- 
compiling. BASIC converts the line into a 
tokenized format which can be interpreted 
during program execution much faster than 
the text line we enter could be interpreted. 
The tokenized version of the line is placed 
into the Statement Table (ST). Other tables 
are built during this pre-compile process: the 
Variable Name Table (VNT), the Variable 
Value Table (VVT), and the String/Array 
Table. 

If the line entered contains a new variable, 
its name is added to the VNT, and informa- 



tion about the variable is placed into the 
VVT. If the variable is a string or array, it 
is added to the String/Array Table. In the 
tokenized version of the program line, the 
variable is represented by a one-byte token. 
This value of this byte is the position of the 
variable in the VNT, plus 128 ($80). A BA- 
SIC program may have only 128 variables, 
and their tokens range sequentially from 128 
to 255 ($80 to $FF). 

The VNT is maintained by BASIC for the 
convenience of the programmer. It is used 
only by the LIST statement. When the pro- 
gram, or a portion of it, is listed, the vari- 
able token is used as an index into the VNT 
and the variable name is displayed. The vari- 
able name may be any length. It must con- 
sist of uppercase letters and numbers and 
must begin with a letter. This gives us con- 
siderable freedom to use descriptive variable 
names so that our programs are easier to 
read. 

When a program is written to disk using 
the LIST command, the file is exactly the 
same as if the program is listed to the screen. 
When it is later entered with the ENTER 
command, BASIC pre-compiles each line and 
builds the various tables just as if it were be- 



ing typed in. 

However, when a program is written to disk 
using the SAVE command, the file consists 
of a 14-byte header and the various tables that 
have been built. The Statement Table is saved 
in its tokenized format. When the file is later 
entered with the LOAD command, the header 
portion of the file is used by the operating 
system as an index to the various tables and 
the tables are simply read and placed into the 
appropriate place in RAM. 

While we are entering a program, if we 
change a variable's name, the new name is 
placed into the VNT. The original name re- 
mains in the table, even if it is no longer used 
by the program. The only way to clear the 
original name and free up RAM and variable 
space is to LIST the program to disk, type 
NEW, and ENTER it back into memory, 
which creates a new VNT using only the vari- 
able names encountered in the file. 

Vsing VNT Editor 

When VNT Editor is run, a menu of four 
items is presented: Read file. Write file. Edit 
Variable Names, and Change All. First you 
must read the file you wish to modify. When 
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editing the variable names, you should be 
careful to use valid names if you wish to be 
able to edit the program later. Although BA- 
SIC places no restriction on the length of 
variable names, VNT Editor limits you to 30 
characters per name which should be suffi- 
cient. Replacing a short name with a long one 
can also cause problems later if the new name 
results in program lines that are longer than 
the BASIC editor will accept. Once you have 
completed your changes, write the file out to 
a new filename. The new file may then be 
LOADed as usual. 

VNT Editor does not force you to use valid 
variable names nor does it check for dupli- 
cate names. There may be occasions where 
you do not wish to use valid names. If your 
program uses all of RAM and you need a few 
more bytes you might wish to change all vari- 
able names to one letter names. BASIC will 
allow only 26 (A to Z) and considers the dol- 
lar sign on strings and the parentheses on ar- 
rays as part of the variable name. The Change 
All option allows you to change all variables' 
names to the same one-character name,which 
could save you several hundred bytes in a 
large program. 

If you have a program which you do not 
want other users to modify for some reason, 
you may change variable names to special 
characters. The resulting file will run proper- 
ly, but if a line containing an invalid variable 
name is edited, an error will result which can- 
not be corrected. Try changing all variable 
names to a string of 30 question marks. The 
resulting file will run correctly, but when 
LISTed,will appear very strange. 

If you create a file with invalid or dupli- 
cate variable names, be sure to keep a copy 
of your original file for future use. 

Program Explanation 

VNT Editor is straightforward, with no 
tricks or complicated routines. Remarks are 
not referenced, so you may omit them if you 
like. 

The Read File routine begins on Line 810. 
Line 830 reads the 14-byte header for the file. 
Line 840 checks the first two bytes. They 
should both be decimal zero if the file is a 
SAVEd BASIC program. The third and fourth 
bytes contain an offset (from zero) from the 
end of the header to the beginning of the 
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VNT-(-256. VNTSTART is set to this value 
in Line 850. The offset to the end of the VNT 
is one less than the start of the VVT. Line 
860 assigns this value to VNTEND. 

The seventh and eighth bytes of the head- 
er contain the offset to the beginning of the 
VVT-l-256. VVTSTART is set to this value 
in Line 870. The offset to the end of the VVT 
is one less than the start of the ST. Line 880 
assigns this value to VVTEND. The ninth and 
tenth bytes contain the offset to the beginning 
of the ST-l-256. Line 890 assigns this value 
to STSTART. The 13th and 14th bytes con- 
tain the offset to the end of the ST-l-256. Line 
900 assigns this value to STEND. 

The fifth, sixth, 11th and 12th bytes of the 
header are not used by BASIC or VNT 
Editor. 

The VNT, as determined by VNTSTART 
AND VNTEND, is read and placed in the 
string VNT$. The length of VNT$ is stored 
in VNTLENl for use later. After editing the 
variable names, a new file is written by the 
routine beginning at Line 1010. Line 1040 
checks to insure the destination filename is 
not the same as the source filename. The cur- 
rent length of VNT$ is stored in VNTLEN2 
in Line 1060, and the difference between 
VNTLENl and VNTLEN2 is stored in 
CHANGE in Line 1070. The offsets found in 
HEADERS are updated by the value of 
CHANGE in Lines 1080-1160. 

Line 1180 writes the HEADERS to the new 
file. Line 1190 writes the new VNT$ to the 
new file. Line 1210 reads the old header and 
VNT from the old file and discards them. 
Line 1230 is a loop which reads a byte from 
the old file and writes it to the new file until 
the end of the old file is reached. 

Other sections of the program should be 
self-explanatory. 

VNT Editor will provide you with a new 
way to view and manipulate the VNT of your 
BASIC programs. The extra control and flex- 
ibility will be convenient on many programs 
and could be very helpful on larger programs 
using a large number of variables. 

Earl Davidson has been an avid Atari en- 
thusiast for many years. He is an active mem- 
ber of the Atari Users Group of Albany, GA, 
and as one of the owners ofSoSoft, he wrote 
the user's tnanualfor InSyst!, a small busi- 
ness inventory program for 8-bit Ataris. 
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LISTINC 1: BASIC 



HV le REM KMMMMMKKMlOCMMMMmCmiMXMMMlOtMMMll 

RK 26 REH * UARIfiBLE NAME TABLE EDITOR * 
ftU 38 REH * b!^ Earl Davidson * 

OH 48 REM » Copyright 1988 « 
SM 58 REM * BY ANALOG COMPUTING * 

ID 68 REM KMKKMMMKMMlOOOHOOtMMKMMMMKKKMKX 
BN 65 REH 
CO 78 GRAPHICS 8 '.POKE 718, 8: POKE 789,e:P0 

KE 752,1:G0T0 1348 
BF 88 REM 

lA 58 REH *** GET KEY FROH KEYBOARD 
QH 186 REH 
ZE 118 ? "_*";:GET ai,KEY!KEY$=CHR$(KEY) : 

RETURN 
QQ 126 REM 

HA 138 REM *** CLEAR LAST THREE LINES 
QU 146 REM 
AM 158 FOR J=21 TO 23:P0SITI0N 1,J!? BLS; 

:HEXT JlRETURN 
QY 166 REH 

5R 178 REH *** BORDER 
RC 188 REM 
FX 198 FOR 1=3 TO 17;P05ITI0N 1,1:? BORDE 

R$:NEXT I:RETURH 
QN 280 REM 

RA 218 REM #»» GET FILE5PEC 
Q8 226 REM 
6D 236 POSITION 2,21:? "ENTER FILE5PEC; " 

W 246 REM 

ZC 256 REM *** GET LINE 

OZ 266 REM 

OH 276 HORK$= CHHUH=1 

PY 286 GOSUB 118:KEY$=CHR$(KEY) :IF KEY=15 

5 THEN ? " ";:RETURH 
IZ 296 IF KEY=27 THEH CHHUM=8:H0RK5="":? 

" ": RETURN 
JL 388 IF KEY) 127 THEN KEY=KEY-128:KEY$=C 

HRS(KEY) 
QR 318 IF KEY=36 OR KEY=126 THEH IF CHHUM 

>2 THEH CHMUM=CHHUM-1:? " f"jCHRSC126) 

;:GOTO 288 
EU 328 IF KEY=38 OR KEY=126 THEH IF CHNUH 

=2 THEN CHHUM=l:HORKS="":? " t";CHRSa 

26);: GOTO 288 
JS 336 IF KEY>26 AND KEY<32 OR KEY>124 TH 

EN ? CHR$ (253);: GOTO 286 
YB 346 IF CHHUM<MAXL THEH ? KEY$; :HORKS(C 

HHUH, CHHUH) =KEY5 : CHHUH=CHHUH+1 ; GOTO 28 

6 
NT 356 ? CHR$ (253);: GOTO 288 
RA 366 REM 

GL 378 REM »»» HEHU FOR EDIT ROUTIHE 
RE 388 REH 
OJ 398 IF 50URCESi:"H0HE" THEN GOSUB 1728; 

GOTO 1528 
YG 488 POSITION 14,1:? "Page ";PAGE+1;" o 

f ";INT(HUM«AR/15)+1,'" 



HJ 416 P05ITI0H 



UX 
ML 



428 GOSUB 198 
436 POSITIOH 



. 18 : ? 



PREVIOUS NEXT 



■iMuiai 



GH 448 POSITION 1,19:? 

UH 456 GOSUB 546 

LO 466 POSITIOH 2,26:? "Choice? 

";:POSITION 18,26 
EB 478 GOSUB 116:? KEYS; 
AE 488 IF KEY$="E" THEH ? "dit"; 
NE 498 IF KEYS="H" THEH ? "ext"; 



GOTO 618 
PAGE=PAG 



E+(PAGE<HAXPAGE}: GOSUB 546: GOTO 466 
LH 586 IF KEYS="P" THEN ? "eviOUS"; :PAGE: 

PAGE-(PAGE>6):G0SUB 546:G0T0 466 
FG 516 IF KEYS="H" THEH ? "enu";:GOTO 142 

6 
XD 528 IF KEY=27 OR KEY=155 THEH POSITIOH 

16,26:? "Menu";: GOTO' 1428 
PI 538 GOTO 468 
KE 548 POSITION 19,1:? PAGE+1 
NT 558 POSITIOH 2,3:L0NUH=1+PAGE«15:HIHUM 

=15+PAGE«15:BLAHK=e:IF HIHUH>HUMVAR TH 

EH BLANK=HINUM-NUHVAR:HINUH=HUMUAR 
JL 568 FOR I=LONUH TO HIHUH:H0RK$=BL5:LH= 

1:IF K188 THEH LH=2:IF I<16 THEH LM=3 
SE 576 UARS=UHTS(UHUHCI),UHUHa+l)-l}:UAR 

L=LEH(UAR$) :CH=ASC(VAR$(UARL}) :CH=CH-1 

28:UAR$(UARL}=CHR$(CH) 
XA 586 N0RK$(LH,3}=STR$(I]:U0RK5(5,4+LEH( 

UARS})=UAR$:? HORK$:NEXT I 
FO 596 IF BLANK THEN FOR 1=1 TO BLAHK:? B 

LS:HEXT I 
ZC 686 RETURH 
HJ 616 POSITIOH 2,26:? "Edit variable tt? 

": POSITIOH 19,26 
HU 626 HAXL=4: GOSUB 276: IF HORKS="" THEH 

GOSUB 156: GOTO 468 
EU 638 TRAP 646:I=UAL(H0RK$} :IF I>6 AHD I 

<1+HUM«AR THEH GOTO 658 

5E 648 ? CHRS (2531: POSITIOH 2,21:? " fOCTI 

SEEECniIDD": GOSUB 1658; GOSUB 156: GOTO 

616 

EH 658 TRAP 46888; POSITIOH 1,21:? "EIIB" 

5D 666 VAR$=UHTS{gHUM(I),UHUM(I+l)-lJ:UAR 
L=LEH(gARS) ;CH=ASC(VARS(UARL)) ;CH=CH-1 
28 ; UARS (UARL) =CHR$ (CH) 

XH 676 H0RK$=BLS(1,36):H0RK$(1,LEN(UAR$)) 

=uarS:'' hork$ 

HH 686 POSITIOH 1,22:? " EHIB"; :MAKL=31:G 
OSUB 276: IF HORKS="" THEH GOTO 776 

IK 696 UARL1=LEH(WRK$) ; WORKS (UARL1+1)=BL 
S(gARLl+l,32) ;P05ITIOH 6,I-{PAGE«15)+2 

;'? HORKS' 

EB 788 HORKi=HORKS(l,VARLl) :CH=ASC (HORKS ( 

VARL1)):CH=CH+128 
CE 716 HORKS (UARL1)=CHR$(CH} 
RQ 728 CHAHGE=gARLl-VARL 
HN 738 IF IzHUMVAR THEH VHTS=UHTS(1, (UHUH 

(I) -I) ) : VHTS (UHUH(I) } =HORK$ : GOTO 766 
UQ 746 UHTlS=UHTS(gHUM(I+l),LEH(UHT5)) 
01 756 «HTS(gHUH(I))=MORKS;UHTS(LEH(UHTS) 

+1)=VHT1S 
BP 766 FOR J=I+1 TO HUMgAR+l:gNUH(J)=VHUM 

(J)tCHAHGE:HEXT J 
HP 778 GOSUB 156: GOTO 466 
RI 788 REM 

TY 798 REM *** READ FILE ROUTIHE 
QT 806 REH 
GH 818 TRAP 169e:gHTS="":50URCES="":NUHgA 

R=6:MAKL=16: GOSUB 238: IF HORKS="" THEH 
GOSUB 158 :SOURCES="HOHE": GOTO 1528 
DK 828 SOURCES=HORKS: POSITIOH 2,21:? " 

READIHG";:CLOSE Jt2:0PEH lt2,4,6,S0U 

RCES:I=1 
FO 838 FOR 1=1 TO 14:GET tJ2, A: HEADERS (I, I 

)=CHRS(A):HEXT I 
RH 848 IF HEADERS(1,1)<>CHRS(6] AND HEADE 

RS(2,2)<>CHHS(8J THEH GOTO 1738 
DL 856 gHT5TART=£ASC(HEADERS(3,3)JtASC(HE 

ADERS(4,4))*256)-256 
JS 866 UHTEND=(A5C(HEADERS(7,7))+ASC(HEAD 

EHS(8,8))»256)-256-l 
CF 878 UgT5TART=CA5C(HEADERS(7,7))+ASC(HE 

ADERSJ8,8))*256)-256 
DD 888 gMTEHD=(ASC{HEADERS(9,9J)+ASC(HEAD 

ERS (16 , 18) )»256) -256-1 
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HZ 898 5T5TftRT=tft5CtHEflDERS(9,9))+fl5C(HEft 

DER${ie,ie))*256)-256 
QB 998 STEHI>=(ASC(HEADERS(13,13)}+ASC(HEA 

0ER5(14,14)J*256)-256 
J5 918 FOR I=(gNT5TftRT+l) TO VIITEKID:GET tt 

2,fl:MMT$(I,I)=CHR$tft) -.MEXT I: CLOSE tt2 
PU 929 UNTLEMl ^LEMCVHTS) :REH M:»r»:nMli:i 

msMmsw 

FZ 939 VMUH(l) =1:1=2 

AN 949 FOR J=l TO UHTLEM1:IF fl5C(UIITSU,J 

))>127 THEM MHUMCI)=J+1:I=I+1 
GT 959 NEKT J 
TR 969 MUtWflR=I-2:MftXPftGE=IIIT(MUWftR/'15): 

PAGE=9 
H5 979 G05UB 158: GOTO 1528 
RK 989 REM 

TU 999 REM *** WIITE FILE ROUTIME 
HH 1899 REM 
H8 1919 IF 50URCES="II0NE" THEM G05UB 1729 

:G0T0 1529 
GJ 1829 MftKL=16:G05UB 239:DE5TIMflTI0MS=H0 

RK$ 
D5 1039 IF H0RKS="" THEM GOSUB 159: GOTO 1 

529 
QD 1949 IF S0URCES:DE5TIMftTI0MS THEM G05U 

B 1749: GOTO 1919 
FR 1958 P05ITI0M 2,21:? " . jyiJI"^".; 
EU 1869 UMTLE M2=LEMCUMTS):REM H;i'H:if^^;W 

WEMEm 

0Q 1879 CHANGE=UNTLEN2-VNTLEN1 

FU 1889 gUT5TART=UUT5TflRT+CHftMGE 

PC 1898 UUT5TflRTHI=IMT{UUT5TflftT/256):HEftD 

ER$ (8 , 8) =CHR$ CMUT5TflHTHI+l) 
OH 1188 UUT5TflRTL0=U«T5TftRT-tUMT5TflHTHI»2 

56):HEftDEHSt7,7)=CHR$(UUT5TflRTL0) 
LR 1118 5T5TftRT=ST5TflRT+CHAMGE 
OU 1128 5T5TfiRTHI=IMT(5T5TAHT/256):HEA0ER 

S C18, 19) =CHR5 C5TSTARTHI+1) 
M5 1138 5T5TflRTL0=5T5TART-(5T5TftRTHI»256) 

: HEADERS (9 , 9) =CHRS (5T5TARTL0) 
E5 1148 STEMD=5TEMD+CHANGE 
FH 1158 5TEM0HI=IMT(5TEMD/'256): HEADERS (14 

,14)=CHR$(5TEMDHI+1) 
QI 1168 5TENDL0=5TEMD-(5TEMDHI«256):HEADE 

RS(13,13)=CHRS(5TEMDL0) 
IK 1178 TRAP 179e:CL05E J13:0PEM «3,8,9,DE 

5TIMATI0H$ 
OP 1189 FOR 1=1 TO 14 :A=A5C (HEADERS tl, I)) 

:PUT tt3,A:MEKT I: REM HRITE NEH HEADER 
YL 1199 FOR 1=1 TO LEM(gMTS) : A=A5C(UMTS(I 

,I)):PUT Jt3,A:MEXT I:REM HRITE MEN UMT 
MB 1299 CLOSE tt2:0PEH tt2, 4, 9, SOURCES 
HU 1219 FOR 1=1 TO gNTLEMl+14:GET tt2,A:ME 

XT I: REM THROH AHAY OLD VMT AMD HEADER 
OE 1220 TRAP 1249 
RF 1239 GET tt2,A:PUT tt3,A:G0T0 1238: REM R 

EAD REWilMDER OF FILE AMD V«ITE IT TO 

MEM FILE 
XC 1249 CLOSE tt2: CLOSE tt3: GOSUB 158: GOTO 

1529 
CZ 1259 POSITION 2,28:? "Change All to (< 

C/R> to EXIT): '^POSITIOM 5,21:MAXL=3e 

: GOSUB 278 
EF 1268 IF HORKS="" THEM GOSUB 159: GOTO 1 

528 
XH 1279 A=ASC(WRKS(LEMCH0RKS))):A=An28: 

H0RK5 (LEM (MORKS) ) =CHRS (A) 
DG 1289 «MTS="":MMTS=H0RKS:UMUM(2)=LEM(H0 

RKS)+l:F0R 1=2 TO MUMUAR: UMTS (LEM (UMTS 

) +1) =WORK$ : UMUM(I+1) =LEM (UMTS) +1 
FU 1299 MEXT I 

QU 1399 POSITIOM 5,21:? BLS:GOTO 1529 
IF 1319 REM 

T5 1329 REM *** IMITIALIZATIOM 
IL 1339 REM 



HE 1349 DIM KEYS (1) .UMTS (3849) ,UNTlS (3848 
) , HEADERS (14) , BLS (36) , SOURCES (15) , DEST 
INATIONS (15) , HORKS (48) , UMUM(128) 

QX 1358 DIM UARS (38), BORDERS (38) 

BS 1368 BLS=" '■:BLS(36)=BLS:BL$(2)=BLS 

KU 1379 S0URCES="M0ME":B0RDERS=CHR$(153]: 
BORDERS (2) =BLS : BORDERS (38, 38) =CHRS (25) 
:FIRST=1 

XE 1388 OPEM ttl,4,9,"K:":REM OPEM KEVBOAR 
D 

JD 1399 REM 

JH 1489 REM *** MAIM MENU 

IH 1418 REM 

FQ 1428 TRAP 40988 : POKE 752,1:P0SITI0M 1 , 
9:? 



VARIABLE NAME TABLE EDITOR 



XH 1438 POSITION 1,1:? BLS 
HT 1449 POSITION 1,2:? 



'iKanaKHQia 



1 Davidson 



AB 1459 GOSUB 199 

GD 1466 POSITION 1,18:? 



EDIT CHANGE ALL 



SH 1478 POSITION 1,19:? " 

■B * II 

PK 1488 POKE 82,3;P0SITI0M 1 4,4:? "IMSTR U 
CTIOMS": POSITIOM 14,5:? " " 

FD 1498 ? "READ the Variable Nane Table f 
roH":? "a 5AUED Basic prograM." 

TL 1588 ? :? "Edit individual variables o 

r":? "change all the variables at once 
II 

VT i518 ? :? "Then HRITE the Modified pro 
gram":? "to a new disk file.";POKE 82, 
2 

tffi 1528 TRAP 1429: POSITION 9,15:? "File 1 
oaded : "; SOURCES; BL$ (1, 15-LEN (SOURCES) 

); 

MF 1539 POSITION 9,16:? "« variables: ";N 

UMUAR;BLS(1,5); 
UE 1548 POKE 789,12 
LS 1558 POSITIOM 2,28:? "Choice? "jBLSd, 

24);: POSITION 18, 28: IF FIRST THEM FIRS 

T=8:KEYS="R":? KEYS;:GOTO 1578 
UA 1568 GOSUB 118:P05ITI0M 19,28:? KEYS; 
EU 1578 IF KEYS="R" THEM ? "ead File": GOT 

818 
OT 1588 IF KEYS="E" THEM ? "dit UNT":G0T0 

399 
JQ 1599 IF KEYS="H" THEM ? "rite File":GO 

TO 1918 
EX 1689 IF KEYS="C" THEM ? "hange A11":G0 

TO 1259 
OU 1619 ? CHRS (253);: GOTO 1559 
10 1628 REM 

XF 1639 REM «*» HAIT LOOP 
lU 1649 REM 

AH 1659 FOR J=l TO 159: MEXT J: RETURN 
JA 1669 REM 

FP 1679 REM *** DISK ERROR ROUTINES 
JG 1688 REM 

FI 1699 SOURCES="NOME":NUMUAR=9 
BI 17 99 CLO SE tt2: CLOSE tt3: POSITION 2,22:? 

"HaaiEn ";peek(195);" EIMiiai ";PEEK( 

186)+256»PEEK(187) 

XJ 1718 FOR 1=191 TO 255 STEP 2: SOUND 9,1 
,19,19:NEXT I:SOUND e,9,9,8;G05UB 158: 
GOTO 1528 

OX 1728 POSI TION 2,22:? CHRS (253) ;"lJ!MaU 
IJHiH*»tU ";: GOSUB 1659:G0SUB 159:RETUR 
If 

ZM 1759 POSIT ION 2,22:? CHRS (253) ;"ninB3 
ZEEEBSB": GOSUB 1658:G0SUB 156:S0URC 
ES="MOHE" : MUMUAR=8 : GOTO 1528 
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riiM'i:i'Tii:i:t'fni"! 

GOSUB 1658: GOSUB 158: RETURN 




by Paul Lay 



TAR 
RIDER 



Star Rider is an all-machine-code, 3-D ar- 
cade-action space game for any Atari 8-bit 
computer with a minimum 32K RAM, con- 
trolled by a joystick in Port 1. 



Introduction 

It is many centuries into our future, and 
all the countries of the Earth are currently 
united in an extensive colonization program 
involving the creation of new civilizations on 
distant planets. However, the entire program 
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is under threat from the Xylons, a massive 
alien empire that for years has been trying 
to gain supremacy of the universe. 

It has taken you many years of intense 
training, but you've finally graduated as a Star 
Rider. Armed with the latest in photon 
weaponry, your craft orbits one of the coloni- 
zation planets, and you are all that stands be- 
tween this planet's destruction by the Xylons. 

Typing it in 

To create your copy of Star Rider, type in 
Listing 1 using the M/L Editor found else- 
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where in this issue. Create the game file un- 
der the filename STARRIDE.OBJ, or, if you 
want the program to load automatically, use 
the filename AUTORUN.SYS. 

Keyboard controls 

START: Begin game at Level 1. 
1,2,3,4,5: Begin game at Levels 10, 20, 30, 
40, 50, respectively. 
C: Continue game from previous level. 
T: Toggle vertical control. 
SR\CEBAR: Pause/resume game. 
ESC: Abort game. 



Game play 

When you start a game, you will be 
presented with a cockpit view from your 
spacecraft. In the viewport you can see the 
planet surface below with the attacking Xy- 
lon crafts appearing from over the horizon. 
You will also see your photon-gun sights in 
the viewport. These are controlled by a 
joystick in Port 1, and photons are fired by 
hitting the trigger. Note two points: First, the 
left photon is always fired first, and the right 
photon is only fired if the left's already been 
fired! Second, the vertical control of the 
sights can be toggled by the T key. 

At the bottom of the screen, you can see 
the control panel displaying your score, 
shields and the attack wave which you are on. 
For every Xylon craft which you destroy, five 
points are added to your score, and your 
shields are increased by an amount depend- 
ing upon the attack wave (more for higher 
waves). Note that your shields cannot in- 
crease above 100% . However, if a Xylon craft 
is not destroyed, and instead shoots past you, 
deflecfing off your shields, then 4% is 
deducted from your shields. If your shields 
fall below 0%, the game ends. 

When the game is over, if your score is 
high enough, you will be able to enter your 
name on the high-score board. Moving the 
joystick left and right will move the cursor 
in the appropriate direction, and moving the 
joystick up and down will move through the 
characters. When you have finished entering 
your name, press the trigger. Note that on 
subsequent high scores, the previously en- 
tered name will appear (in order to save hav- 
ing to enter the same name over again). 

The program 

Full use is made of the excellent graphics 
features of the Atari, utilizing player/missile 
graphics, custom display lists, GTIA modes, 
display-list interrupts, multiple character sets, 
load memory scans and so on. 

The Xylon ships are drawn in 16-luminance 
mode, GTIA 9, which gives an excellent 
metallic effect. Actually, character graphics 
are used behind GTIA, giving characters of 
resoludon two by eight in 16 luminances. The 
scrolling terrain is drawn in high-resolution 
ANTIC F (animated as part of the DLI), and 
the control panel is done in ANTIC 2. Play- 
ers are used for the photons and sights, and 
a single missile is used for the scrolling stars 
(in both the game and title screen). The 
metallic text effects on the control panel and 
on the title screen are done by altering color 
register luminances from light to dark. The 
sound on the title screen uses 15KHz clock- 
ing and a high-pass filter in Channel 1. Fi- 
nally note that no OS routines are used at all. 
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1888 DflTfl 255,255,253.31,196,61,75,215 

,38.0,9,8,0,9,9,8,6598 

1010 DfiTfi 9,6,0,0,0,48.243,255,255,0,4 

8,68,50,255,255,255,837 

1029 DftTft 255,0.8.8,12.12,287.207,255, 

6,8, 0,11, 18. 138;i21. 1896 

1930 BfiTfl 105.0.12,212,221.228,238,244 

.255,204,261.215.213,231,233.255,814 

1046 DfiTfl 249,264,156,125,93,126,158,2 

55,159,8,192,77,221,78,238,79,298 

1050 DATfl 255.0.8.0,176,168,168,151,15 

9, 89, 89, 88, 96.112, 128. 144, 6748 

1060 DATA 153,244,15,4,14,8.9,0,9.247, 

245,231,233,221,13,6,6887 

1079 PfiTfl 8,127.95,126,156,221,208,9,9 

.79,246,64,224,0,0.8,2795 

1980 DhTA 8,149,149,5,6.7,8,9.153,6,9, 

6,0,12,13,174.5569 

1098 DATA 159.6,0,10,187,264,13,238.15 

,0,9,160,187,204. 268,238 , 9713 

1106 DATA 240,9.6,6,8,192.208,234,249, 

143,126.128,144.166,187.9,9336 

1116 DATA 9, 255, 13. 204, il, 0,9. 8, 9, 255, 

268, 284, 176, 9, 6, 8. 2164 

1126 DATA 6,248.231,8.9,19,187,0,6.8.1 

3,9,159.128,157,166.2672 

1138 DATA 187,294.221,238,255,238,221. 

204, 0,8, 268, 6, 249, 3, 2i7. 16, 8274 

1148 DATA 187,8,0,0,0,9,0,9,8.9,6,9.0, 

a n a 1 "X ? "^ 

lise DATA 9. 6, 6. 6, 6, 0,9, 9, 9, 9, 9, 9, 0,0, 

0,9,1158 

1166 DATA 8,6,8,6,6,8,6,9,6,9,8.0.8,9, 

8.0.1168 

1179 DATA 9.9,8.6.6,9,0,0,8,0,0,0,9.9. 
9.9,1179 

1180 DATA 9.9,0.0,0.0.9,0.8,8.8.0,0,9. 
9,9,1188 

1196 DATA 9,9,0.9,9,9.9,9.0,9,6,9,9,8, 

8,9,1199 

1209 DATA 3,9.8,8,6,9,8,8,8,6,6,9,9,6, 

9,6,1299 

1219 DATA 6,9.9,0,9,8,8,8.6.9,0,8,8,6, 
9,0,1216 

1220 DATA 6,6,8,9,6,6,8,6,8.9,0,9.6,0, 
0,6,1228 

1236 DATA 8.6,9.0,8.8,8,8.9.9,9.9,6,9, 

9,0.1239 

1249 DATA 0,8,9,0,0,8.9.0.0,0,9.9,0,0, 

9,0.1248 

1259 DATA 9.0,9,9,9,9,9,9.9,131,129.13 

9,129,129,131.129,3051 

1269 DATA 129.138,131.129,138,129,131, 



129,131.129,129,138.129,139,131,129,39 

05 

1270 DATA 131,129.129,129,131,129.129. 

129.139,129,131,129,131,139.129.131,89 

29 

1286 DATA 129,255,255.9,8.3,255.255,25 

5,0.9,1.255,255.255,9,9544 

1290 DATA 9.1,255,255,255.9.9.1.255,25 

5,255,9,6,1,255,255,9929 

1300 DATA 255,9,8,1,255,255,255,128,9, 

255.252,6,0.15,255. 255,618 

1310 DATA 254.0,0,7,255.255,254,0,0,1, 

255,255,255.0,0,1,5381 

1326 DATA 255,255,255.128,0,0,255,255, 

255,192,9,9,127,255,255,240,4288 

1330 DATA 0,255,224,0,0,127,255.255,24 

8,0,0,15.255,255.252,0.176 

1348 DATA 6,3,255,255,255.9.9,9.255,25 

5.255,192,9.9,63,255,9385 

1350 DATA 255,240.0,0.31,255,255,254,0 

, 255, 0, 0, 1, 255, 255, 255 . 1625 

1369 DATA 224,9.6.63,255,255,248,0,0,3 
,255.255,255,9,9,9,5587 

1370 DATA 255,255,255,224,8,6,31,255,2 
55.252,8,8,3,255,255,255,2382 

1380 DATA 224,248,0,0,7,255,255,255,12 

8,0,0,127,255,255,248,0,651 

1399 DATA 6,7,255,255,255,8,8,9,127,25 

5,255,240.0,8,7,255,8827 

1480 DATA 255,255,8,8,9,255,255,255,25 

2,192,0,8,63,255,255,254,3986 

1410 DATA 8,6,8,255.255,255,224,6,9,7, 

255,255,255,8,8,8,6853 

1428 DATA 127,255,255,248,8,8,3,255,25 

5,255,192,8,8,31,255,255,1171 

1438 DATA 255,8,8,8,255,255,255,248,8, 

8,3,255,255,255,192,8,1117 

1448 DATA 9,15,255,255,255,9,6,8,63,25 

5,255,252,8,8,1,255.7571 

1458 DATA 255,255,248,9,8,7,255,255,25 

5,8,8,7,255,255.255,224,3475 

1458 DATA 8,8,7.255,255,255,128,8,8,15 

,255,255,255.0,8,8,5532 

1478 DATA 63,255,255,254,8,8,8,127.255 

,255,252,8,8,9,255,255,362 

1488 DATA 255,8,6,31,255,255,255,128,8 

.9,31,255,255,255,9,9,7759 

1499 DATA 8.31,255,255,255,9,9,8,31,25 

5,255,255,8,8,8,63,4314 

1588 DATA 255,255,255,8,0,8,63,255,255 

,6,0,255,255,255,254,0,1561 

1518 DATA 9,6.63,255,255,254,8,8,8,31, 

255,255,255,0,0,8,5886 

1526 DATA 31,255,255,255,128,8,9,15,25 

5,255,255,192,9.8,7,255,8745 

1539 DATA 255,9,3,255.255,255,248.8.8, 
0,255, 255. 255, 252, 8, e;63 

1540 DATA 9,63,255,255.255,8,8,8,15,25 
5,255,255,192,8,8,7,5884 

1550 DATA 255,255,255,248,0,0,1,255,25 

5,8,31,255,255,255,224,8,2828 

1566 DATA 6,1,255,255,255,248,9.9.8,53 

,255,255,255,0,0,0,5929 

1570 DATA 15,255.255,255,224,0,8,1,255 

,255.255,252,0,0,0,63.5596 

1580 DATA 255,0,127,255,255,255,128,0. 

8,7,255,255,255.240,6,0.9547 

1598 DATA 0,127.255,255,255,8,9.9,7.25 

5,255,255.248,8,8,8.5502 

1680 DATA 255,255,255,255,0,8,9.15,255 

,1,255,255,255,254.8,8,9311 

1610 DATA 8,15,255,255.255,224.8,8,8,1 

27,255,255,255,0,8,6,6494 

1628 DATA 7,255,255,255,248,8,6,6.63,2 

55,255,255.192,8,0,1.6655 

1539 DATA 255,15,255,255,255.248,8.9,9 

,63,255,255,255,192,9,9,8961 

1649 DATA 6,255,255.255,255,9,8.9.3,25 

5,255,255,252,9,9,9,6928 

1659 DATA 31,255,255,255,249,9,9,9,127 

,63,255,255,255,224,9,9,9265 

1669 DATA 9,127,255,255,255.128,9.9.9, 

255,255,255,255,6,9,8,7472 

1576 DATA 3,255,255,255,254,8,9,9.7,25 

5,255,255,248,6,6,9,6949 

1688 DATA 15,255,255,255.255,192,9.9,9 

,255,255,255,255,128.9,9,9939 

1696 DATA 1,255,255,255,255,9,9.9,1,25 

5,255.255,254,0,0,9,6987 

1709 DATA 3,255,255,255,254,9,8,0.3,25 

5,255,255,255,8,8,8,7825 
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1718 DflTfi 3,255.255,255,255,0.8,0,1,25 

5,255.255,255,8,0,8,7922 

1728 bdlb 1,255,255,255,255.9,8,8,1,25 

5,255,255,255,128.9,8.8822 

1738 tftTti 8,255,255,255.252,9,8,8,7,25 

5,255,255.254,8,6,8,7865 

1748 OATfi 3,255,255,255,255,8,8,8.8,25 

5,255,255.255,128,8,8.8835 

1758 DATA 8,127,255,255.255,224,8.8,8, 

255,255,255,248,8,8,8,7943 

1768 OflTfl 31,255,255.255,252.8.0,9,3,2 

55,255,255,255,0,8,8,7103 

1778 BflTfi 8,255,255,255,255,192,9,9,8, 

63,255,255,255,248,8,8,9774 

1780 DftTfl 8,255,255,255,192,0,8,8,63,2 

55,255,255,248,8,8,8,7241 

1798 DATA 7,255.255,255,255,9,8,0,6.12 

7,255,255,255,224,8,0,8953 

1800 DATA 8,15,255,255,255,254,0,9,8,2 

55,255,255,8,8.8,0,4829 

1818 DATA 255,255,255,255,240,0,8,8,7, 

255,255,255.255,6,0,8,7353 

1829 DATA 8,127,255,255,255,240,8,8,8. 
7,255.255,255,255,128,8,1314 

1830 DATA 8,255,255,252,8,8,8,1,255,25 
5,255,255,224,9,9,9,7743 

1848 DATA 15,255,255,255,255,9,8,0,0,6 

3,255,255,255,248,0,9,8707 

1858 BATA 8,1,255,255,255,255,224,8,8, 

255,255,240,0,8,0,7,6357 

I860 DATA 255,255,255,255,192,6,0,8,15 

,255,255,255,255,0,8,0,7235 

1878 DATA 8,63,255,255,255,252,9,9,8,0 

,255,255,255,255,248,8,3838 

1888 DATA 8,255,255.192,8,8,9,15,255,2 

55,255,255,128,8,9,8,6417 

1898 DATA 31,255,255,255,255,6,8,9,6,3 

1.255,255,255,254.6,9,8537 

1^88 6aTA 6, 8;63, 255, 155,255, 254, 6, 6, 2 

55,255,6,8.9,8,63,4655 

1918 DATA 255,255,255,255,8,8,8,8,31,2 

55.255,255.255,9.8,8.6469 

1926 DATA 8,31,255,255,255,255,8,0,6,6 

,31,255,255,255,255,128,2731 

1938 DATA 8,255,252,9,6,8,6,127,255,25 

5,255,254,9,0,8,9,4918 

1948 DATA 53,255,255,255,255,8.6,8,8,1 

5, 255, 255 . 255, 255 . 123, 6, 393 

1950 data' 8,0,7,255,255,255,255,224,9, 

255,248,8,0,9.0.255,8643 

1968 DATA 255,255,255.252,9,0,6,8,63,2 

55,255,255,255,0.8,8,6795 

1978 DATA 8,15,255,255,255,255,192,8,6 

,8,3,255,255,255,255,248.5705 

1986 DATA 6,255,192,6,0,8,3,255,255,25 

5,255,248,6,8,6,6.5753 

1998 DATA 127,255,255,255,255,9,0,0.6, 

7,255,255,255,255.224,9.1867 

2860 DATA 6,6,1,255,255,255,255,254,0, 

255,0,8,6,0.7.255,6380 

2010 DATA 255,255,255,248,6,0.8,9,127, 

255.255.255,255,8,8.8.7373 

2026 DATA 0,7,255.255,255,255,240,6,8, 

8,6.127.255,255,255,255,4618 

2938 DATA 128,252,9,6,6.9.31,255,255,2 

55,255,224.6,0,9,0.525? 

2049 DATA 255,255,255.255.255,6.8,8.6, 

3,255.255,255,255,248,8.2365 

2956 DATA 0,9,8,63,255.255,255,255.224 

,48,48,112,240,66,184,41,9560 

206S DATA 56,0,116,2,2,2,2,2,2,2,2,2,2 

2070' DATA^bS, 144, 33. 79, 184, 33. 15, 15, 15 

,15,15.15,15.15,15,15,5684 

2086 DATA 15,15,15,15,15,15,15,15,15,1 

5,15.15,15,15,15,15,4120 

2090 DATA 15,15,15,15,8,66.144,41,6,2, 

2,0,2,65,144,38,7718 

2100 DATA 169,96,133,2,169,56,133,3,16 

9,2,133,9,169.9.141.68,3594 

2119 DATA 2,141.235,9,141,236,9,133,21 
2,169,1,141.226.0,169.3,7196 

2120 DATA 141.15.210,141.29,208,169,72 
,141,8,2,169,48,141,9,2,2801 

2130 DATA 169,64,141,14,210,169,126,14 

1,7.212,169.128,141,14.212,169,429 

2140 DATA 62,141,0,212.32.120,49,32,9, 

52,32,80.48,32,55.40,9261 

2150 DATA 169,6,141,6,212,169,144,141, 

2,212,169,38,141,3,212.169,9164 

2i68 DATA 95,141,0,2,169,40,141,1,2,16 



9 , 222, 141 , 19, 266 , 169 . 60 , 7121 

2176 DATA 141,20,208,169,146.141,21,28 

8,32,152,54.162,4,189.10,40,4842 

2189 DATA 157,22.298,292,16.247.32,187 
,49,169,9,141,254,9,141,255,9775 

2190 DATA 8.141,8,210,162,2.157,208,9, 
292,16.250,169,255,141,244.3963 

2260 DATA 8,141,249,0.141,230,8,141,23 

2,8,169,120,141,242,0,141,9366 

2210 DATA 243,0,169,16,141,243,41.141. 

244,41,162,4.157,231.41,202.160 

2220 DATA 16.258,169,17,141,242.41,169 

,4,141,15,40,32,55,40,169,3688 

2236 DATA 62,141,6,212,173,226,0,141,2 

27,6.32,43,46,32,61,49,2265 

2246 DATA 32,55,48,32,84,43,32,15,46,3 

2,61,48,32,55,40,32,7835 

2256 DATA 67,40,32,58,44.32,266,46,32, 

61,40.32,55,40,32,15,8664 

2260 DATA 46,32,177,47,32,183.48,32,61 

,46,32,55,40,32,67,40,9513 

2270 DATA 32,58,44,32,266,46,32.61.46, 

173, 227, 6, 208. 194, 32. 55, 5963 

2280 DATA 46,32,18,40,173,226,6,201,25 

5,240,169,24,105,1,141,226.379 

2290 DATA 0,208,161,9,12,8.78,8,6,68,7 

4,162,1,189,254,41,4302 

2300 DATA 24,105,1,201,26,240,4,157,25 

4,41,96,169,16,157,254,41,8847 

2310 DATA 202,16,234,96,162,6,52,18,43 

,232,236,226,6,268,247,96,976 

2326 DATA 173,11,212,268,251,96,173,11 

,212,240,251,96,174,15,40,232,2118 

2336 DATA 224,5,268,16,173,16,48,72,17 

3,17,40,141,16,40,164,141,3512 

2340 DATA 17.40,162,1,142,15,46,96,72, 

138,72,152.72,162,139,142,6986 

2350 DATA 16,212,142,24,268,262,224,13 

1, 288 . 245 . 169, 65, 162, 32, 141, 16, 9964 

2360 DATA' 212,141,27,288,142,9,212,173 

,111,126,72,162,116,189,8,120,8330 

2376 DATA 141,16,212,141,4,268,157,1,1 

26, 142, 18, 208, 282, 288, 238, 184, 2672 

2386 DATA 141,1,128,169,6,141,16,212,1 

41,4,208.169,1,141,10,212,7325 

2390 DATA 141,27,288,162,8,142,16,212, 

282,208,256,173,16,46,172,17,8859 

2486 DATA 46,141,23,208,146,24,268,174 

, 15, 40, 142, 18, 212, 282, 268, 250, 2236 

2416 DATA 141,24,288,140,23,288,162,5, 

142,10,212,202,288,258,141,23,1141 

2429 DATA 208,140,24,208,162,6,142,10, 
212,282,268,250,141,24,208,146,2477 

2430 DATA 23,268,162,7,142,10,212,202, 
288,250,141,23,208,140,24,208,1884 
2440 DATA 162,8,142,16,212,262,268,256 
,174,15,40,224,4,240,14,141,9534 

2456 DATA 24,268,146.23,268,142,16,212 

,232,224,4,268,248,169,12,141,1954 

2469 DATA 19,212,141,23,208,162,139,16 

9,224,141.10,212,142,24,288,141,1384 

2476 DATA 9,212,282,142,10,212,142,24, 

268, 262, 224, 131, 288, 245, 169, 6, 3182 

2480 DATA 141,16.212,141,23,268,162,26 

3,142,10,212.142,24.208,142,18,8890 

2496 DATA 212,262,224,195,268,242,169, 

12,141,16,212,141,23,268,162,139,1587 

2560 DATA 142,16,212,142,24,208,202,22 

4,131,268,245,164,168,164,170,164,3496 

2518 DATA 64,6,8,6,6.8,0,9,6,6,6,8,6,9 

,8,6,2574 

2526 DATA 214,246,233,229,247,249,239, 

242.244,194,0,0,8,6,6,0.5261 

2530 DATA 8,6,0,0,0,0,6,0,6,0,0,6,8,8, 

6 8 2538 

2546 DATA 9,6.8,8,6,214,227,239,238,24 

4. 242, 239, 236; 128. 246, 225, 9497 

2556 DATA 238,229,236,194,6,8,6,8,6,9, 

6,6,8,8,6,0,4730 

2560 DATA 6,8,6,6,6,8,0.0,51,99,111,11 

4,101,0.9,0,7911 

2570 DATA 8,0,51,184,105,161,108,100,1 

15,6.8,0,0,0,55.97,9238 

2580 DATA 118,101,8,0,6,6,0,6,9,0,6,8, 

6,6,6,0.2906 

2596 DATA 16,16,16,16.16,8,8,9,6,8,6,1 

7,16,16,8,5,3546 

2666 DATA 9,6.6,6,8.0.8,16,17,8,6,8,8, 

8,8,0.2881 

2616 DATA 6.9.8,9,9,6.9,0.8,6,48,114,1 

11,103.114,97,653 
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2628 DflTft 169.199,101,169,6^14.121,6,4 

8.97,117,198,9,44,97.121,2693 

2638 DATA 6,9,8,6.9,9,9.9,8,138,72,169 

,9,133.285,155,4487 

2646 DfiTfl 241,18,38,285,16,38,265.16,3 

8,265,133,296,166,295,134,297.2395 

2659 OfiTfi 18,38,285.19,38,295,24.101,2 

06,133,294,165,295,101,287,133,2597 

2669 DfiXa 295,165.284,24,181,248,133,2 

84,144,2,238,295,165,294,24.195,1758 

2679 DfiTfl 9,133,294,165,205.195,116,13 

3,295.164,178,96,32,48,42,169,8668 

2688 OflTft 9,24,169,255,8,160,5,145,294 

,56,233,1.135,16,248,169,9626 

2696 Dfttfl 15,24,169,255,9.168,45,145,2 

94,56,233.1,135,192,39.208,9875 

2799 DATft 246,96,32,48,42.169,19,24,10 

9,255,9,169,3,145,264,56,6451 

2718 DfiTfl 233,1,136,15.248,169,23,24,1 

89.255,9,169,43,145,294,56,8028 

2729 DATA 233.1,136,192,39.288,246,96, 

32,48,42,169,26,24,199,255,7711 

2736 DATfi 8,166,2,145,284,56.233,1,136 

,16,248,96,169,0,72,32.5684 

2746 DATA 48,42,194,159,5,145.284,136, 

16,251,160,45,145,284,135,192,2842 

2758 DATA 39,286,249,96.169,6,72,32,48 

,42,164,168.3.145,284,136,7162 

2768 DATA 16,251,168,43,145,264.135,19 

2,39,268,249,96,169.6,72.32,8478 

2779 DATA 48,42,184,166,2,145,264.136, 

16,251,95,173,18,218,41,63,7729 

2789 DATA 261,35,16,247,157,199,61,169 

,14,157,199,62,169,255,157,199,3786 

2798 DATA 63.169,32,157,199,64,173,19. 

219,41,127,157.199,65,96.288,431 

2808 DATA 3,76,3,43,281,1,298,3,76.235 

,42,76,211,42,208,3,6534 

2818 DATA 76,191,42,201,1,288,3.76,153 

,42,76,115,42,162,8.142,5179 

2620 DATA 231,9,189,199,64,261,3,48,98 

, 41, 16, 288 , 29, 189, 199, 64, 7341 

2838 DATA 41,32,249,15,222,199.65,298, 

10,169,8,157,199,64,169,9,7964 

2849 DATA 157,199,65,232,236,226,9,298 

, 217, 96, 222, 199,65, 46, 31, 159, 1147 

2858 DATA 23,141,255,9,189,199,61,133, 

248, 189, 199, 62, 133, 241, 189, 199, 5655 

2868 DATA 64,41,3,32,69,43,169,8,141,2 

55,8,76,122,43,189,199,7857 

2879 DATA 61,133,248,189,199,62,135,24 

1,189,199,64,41,3,32,54,43,5771 

2888 DATA 169,3,157,199,64,286,227,8,7 

6,122,43,189,199,61,133.249,1388 

2898 fcATA 189,199,62.133,241,189,199,5 

4,32,54,43,222,199,65,298,29,9485 

2999 DATA 169,9,157.199,65,254,199,54, 

189,199.64.291,3,48,14,32,5348 

2916 DATA 195.47,169,4,141,236,9,32,18 

,43,76,122,43,189,199.62,6648 

2928 DATA 24,125,199.63,157.199,62.133 

,241,141,231,9,288,5.169,1.6965 

2938 DATA 157,199,63,173,18,218,201,25 

,176,19.189,199,51,249,22,222,1459 

2948 DATA 199,61,16,17,173.18,216.261, 

25,176,16.189.199,61,291,34,8743 

2958 BATfl 249,3,254,199,61,189.199,61, 

133,248,189,199,64,32,59,43,9141 

2969 DATA 76,122,43,173,16,288,268.25, 

173.254,8,246,24.169,0,141,9804 

2978 DATA 254,6.173,244,9,16,3.76,19.4 

5,173.249,6,16.6,76,2485 

2980 DATA 137,45,141,254.6,158,15,174. 

243,6,169.8,157,0.125,232. 8777 

2998 DATA 136,15,249,173.8,211.41.15,1 

33,204 , 174 , 235 , 6, 249 . 18, l62 , 463 

3868 DATA 9.134.239,74,33,239,74,38.23 

9 . 165 , 284 , 41 , 252 , 5 . 239 . 133 . 2323 

3810 DATA 204,70,264,176,9.173.243.6,5 

6,233.8.141,243,8,76,284,9541 

3828 DAtA 176,9.173,243,8,24,165.3.141 

,243,6,76.204,176,9.173,8266 

3838 DATA 242.9,56,233,8.141,242,9.78, 

294,176,9,173,242.6,24.7687 

3049 DATA 185,8,141,242,6,173,242,6.28 

1,48,175,7,169,48,141,242,449 

3856 DATA 9,16,9,281,281,144,5.159,299 

,141,242,0.173,243,0,201,1998 

3069 DATA 49,176,7,169,40,141,243.0.16 
,9,281,177,144,5,159,175,8753 

3070 DATA 141.243,9,168.15,174.243,9,1 
35,3,45,157.6,125,232,136,8637 

3038 DATA 15,246.173,242,8,141.1,293,1 



41.298,9,96,9,84.146,146,7795 

3898 DATA 16.16,16,238,238,16.16,16,14 

6,146,84,0.165,242,56,233,9453 

3108 DATA 48,74,74,74.141.245,8,169,17 

6,56,229,243,74,74,74.141,284 

3118 DATA 246,6,169.8,141.244,6.169,48 

,141,247,6,169,175,141,248,2719 

3126 DATA 6,169,4,141,232,6.76,109.45, 

173,244,8,16,1,96,166,5639 

3139 DATA 15,174,248,8,169,8,157,9,125 

,232,136.16,249,173,247,9,687 

3146 DATA 24,199,245.0,141.247.9,173.2 

43,9,55,237,245,9,141,248,2661 

3156 DATA 9,296,244,6,43.27,166.15,174 

,248,9,185,255,45,45,19,6982 

3169 DATA 219,157,8,126.232,135,16.243 

,173,247.9,141.2.288,141,269,2335 

3178 DATA 8,96,169,288,56,229.242,74,7 

4,74,141.256,8,169.176.56,468 

3186 DATA 229,243,74,74.74,141,251.8,1 

69,8,141,249.8,169,288,141,1148 

3198 DATA 252,8,159,175,141,253,9,169, 

4,141,232,6,76,227,45,173.9835 

3266 DATA 249,8.16,1,96.168,15.174.253 

,8,169,6,157,8,127,232,8232 

3218 DATA 136,16,249,173,252,9,58,237, 

258,8,141,252,9,173,253,9,1497 

3229 DATA 56.237,251,8,141,253,8,296,2 
49.6.48,27,168,15,174,253,415 

3230 DATA 6,185,255.45,45,18,210,157,9 
,127,232,136,16,243,173,252,3247 

3249 DATA 9,141,3,268,141,219,8,96,24, 
69,126,126,126.255,255,255,3923 
3259 DATA 255,255,255,126.126,126,69,2 
4, 32, 95, 46, 32, 151, 46, 32, 64, 3531 

3269 DATA 45,76,182,45,56,233,48,74,74 
,74,141,225,8,173,224,8,8172 

3270 DATA 56,233,48,74,74,56.253.199,6 
1,24,185,1,48.35,72,189,5475 

3289 DATA 199,64,168,164,217,98,46,16, 

24,173,225,6,56,253,199,62,9278 

3296 DATA 24,165,1,48,12,217,93,46.16, 

7,169,8,141,233,8,56,4259 

3306 DATA 96.24,96,3,4,5,1,2,2,165,244 

,248,1,95,162,0,4842 

3319 DATfi 189,199.64,281,3,48.7,232,23 

6,226,9,298,243,96,165,247,4911 

3328 DATA 133,224,165,248,32,27,46,144 

,20,32.233,46,32,79,47,189,5924 

3339 DATA 199,64,9.16,157,199,54,169,8 

,157,199,65,96,76,118,46.6836 

3349 DATA 165,249,249,1,96,162,9,189.1 

99,64,291,3,48,7,232,236,347 

3359 DATA 226,0,298,243,96,165,252,133 

,224,165,253,32,27,45,144,28,9778 

3369 DATA 32,233,46,32,79,47,189,199,6 

4,9,15,157,199,64,169,8,6543 

3379 DATA 157,199,65,96,76,165,46,162, 

8,173,18,218,41,3,168,189,7971 

3388 DATfi 32,32,57,229,46,157,216.32,2 

32,224,182,288,236,95,8,15,981 

3398 DATA 246,255,173,242,41,281.17,24 

6,73,165,226,56,233,1,41,248,2168 

3488 DATA 74,74,74,281,4,48,2,169,3,16 

8,185,62,47,141,228,8,6813 

3418 DATA 185,66.47,141,229,8,173,244, 

41, 24, 189 . 228 , 8, 291, 26 , 48 , 7256 

3428 DATA 6,238,229,8,56,233,18,141,24 

4,41,173,243,41,24,189,229,1958 

3438 DATA 8.281,25,48,14,169,17,141,24 

2,41,159,16,141,243,41,141,9178 

3448 DATA 244,41,96,141,243,41,95,2,5, 

8,8,9,9,1,2,160,9416 

3459 DATA 4,185,231,41,24,185,5.281,26 

,48,19,56,233,18,153,231,7829 

3466 DATA 41,136,48,14,185,231,41,24,1 

85,1,281,26,16.237,153,231.9758 

3478 DATfi 41,96.95,168,2,185,242,41,56 

,233.4,281,16,16,19,24,4164 

3486 DATA 165,19,153,242,41,136,48,14, 

185,242,41,55.233,1,261,16,8823 

3496 DATA 48,237,153,242,41,96,169,16, 

141,242,41,141,243.41,141,244,3115 

3586 DATA 41,32,196,54,32,74,49,162,3, 

169,6,157.64,48,157,68,5266 

3518 DATA 48,262,15,247,162,8,154.76,3 

3,39,174.238.8,48,27,189,6956 

3526 DATA 21,48,141,144,38,189,26,48,1 

41,8,216,141,64,48,189,31,6632 

3538 DATA 48,141,1,218,141,68,48,266,2 

38,9,173,231,6,141.2,218,9969 

3548 DATA 141,65,48,141,3,216,141,69,4 

8,174,232,9,48,21,189,36,6386 
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3550 OflTft 48, 141. 4. 218, 1*1. 66, 48, 189, 4 

1,48,141,5,210,141,78.48,6663 

3568 PftTfl 266,232,0,174,233,8,48,21,18 

3.46,48.141,6,218,141,67,7181 

3578 Dfltfi 48,189.55,48,141,7,210,141,7 

1,48,296,233,0,96,48,32,6455 

3588 DftTfl 64,16,80.0,128,176,288.224,0 

,130,132.134,136,6,160,146,9628 

3590 DflTfl 120,48,0,138,146,142,196,9,2 

40,230,220.210,266,190,186,170,7376 

3690 DATA 9,136,138,146,146,142,142,14 

2,140,0,0.0,0,6,0.8,9788 

3616 DATA 9,173,9,210,141,234,0,104,54 

,32,120,52,32,6,55,169,4633 

3620 DATA 255,133,234,173,31,268,281,6 

.268,4,162,0,240,34,165,234.1962 

3636 tATA 261,45,208,11,173,235,0,73,2 

55,141.235,0,76,86,48.261,9866 

3648 DATA 18,240.30,162,5,221.159,48,2 

49,6,202,208,248,76,90,48,1068 

3650 DATA 189,165,48,133,226,189,171,4 

8,141,255,41.189,177,48,141,254,4380 

3668 DATA 41.169,255,133.234,76,74,49, 

255,31,30,26,24,29,1,10,2612 

3670 DATA 29,30.40,50,17.16.16,16.16.1 

6,16,17.18,19,20,21,6311 

3686 DATA 165,234,201,28,208,3,76,152, 

47,201,45,208,11,165.235,73, 404 

3690 DATA 255.133,235,169,255,133,234, 

96,201,33,208,118,32,74,49.32,8613 

3706 DATA 55,40,169,133,141,2,212,169, 

49,141,3.212,169,54,141,27,8495 

3710 DATA 208,169,224,141,26,208,162,2 

.169,0,157,1,208,202,16,250,1052 

3720 DATA 169,255,133,234,169,5,141,8, 

210,169,166,141,1,210,141,5,9906 

3738 DATA 210,169,128,141,6,210,169,64 

,141,4,210,32,192,49,165,234,1585 

3740 DATA 291,33,208,247,32,55,46,169, 

144,141,2,212,169,38,141,3,7905 

3750 DATA 212,169,1,141,27,208,169,8,1 

41, 26 , 208, 162, 2 , 189 ,208,0 ,8986 

3768 DATA 157,1,208,202,16,247,169,255 

,133,234,169,9,141.8,210,32,1139 

3770 DATA 85,49,96,162,7,169,0,157,6,2 

10,292,16,250,96,162,3,8780 

3780 DATA 160,6,189,64,48,153,0,210.18 

9,68.48,153,1,210,202,136,517 

3790 DATA 136,16,239,96,169,8,133,222, 

169, 116, 133, 223, 162, 4, 76, 138, 941 

3880 DATA 54,169,8,133,222,169,184,133 

,223,162,8,76,138,54,112,112,9289 

3810 DATA 112,79,8,104,15,15,15,15,15, 

15, 15, 15, 15, 15, 15, 15, 6386 

3828 DATA 15,15,15,15,15,15,15,15,15,1 

5,15,15,15,15,15,15,5868 

3830 DATA 15,15,15,15,15,15,15,15,15,1 

5,15,15,15,15,15,15,5878 

3848 DATA 15,15,15,15,15,15,65,133,49, 

32,55,40,152,13,189,81,3939 

3858 DATA 56,133,237,189,95,58,133,238 

,189,157,58,141,226,49,189,171,3951 

3860 DATA 58,141,227,49,138,72,162,0,1 

68,9,189,255,255,145,237,165,5444 

3870 DATA 237.24,105,48,133,237,144,2, 

230.238,232,224,24,268.235,164,5844 

3886 DATA 178,202,15,202,162,13,139,66 

,56,157,67,56.292.298,247.166,3385 

3890 DATA 236,224,43,288,4,162,9,134,2 

36,189,109,56.141,67,56,230,628 

3906 DATA 236,162,13,189,67,59,48,17,1 

89,81.59.24,125,67,58,157,5536 

3919 DATA 81,50,144.28,254,95,59,268,1 

5,189,31,59.24,125,67.50.5846 

3928 DATA 157,81,56,176,3,222.95,56.29 

2,16,216,96,0,0,9.0,3011 

3938 DATA 9,6,0,0,0,8.6,6,6.0.61,62=63 

.64,65,66.9691 

3946 DATA 67,68,59,70,71,72,73,74,106, 

166 . 166, 185 , 196,186 ,196,166, 7126 

3958 DATA 195,165,186,196,196,166,8,8, 

0,40, 49, 49, 49, 216, 216, 216, 7736 

3968 DAtA 216,9,6,40,46,46.86.88,126,1 

36,176,176,216,216,216,0,1536 

3979 DATA 0,9,46,36.120,136,175,216,6, 

8,46,40.49,49,46,40,2626 

3986 DAtA 136,176,216,6,6,8,185,269,23 

3,1,25,49,73,97,121,145,7495 

3998 DATA 169,193,217,241,56,59,56,51, 

51,51,51.51,51,51,51,51,2566 

4068 DATA 51,51,8,0,0,6,136,153,170,18 

7,294,221,238,255,255,238,8922 

4010 DATA 221.204,187,170,153,9,8.0,8, 

9,6,0,0,0.136,153.1133 



4029 DATA 178,187,0,13,14,0,15,14,13,1 
2,187,170,153,0,9,9,1226 

4030 DATA 6,9,0,8,0,0,136.153,170,187, 
204,13.14,255,255.238,3391 

4049 DATA 221.204,187,170,153,9,6,8,0. 

8,6.6,6,9,136,153.1163 

4650 DATA 178 . 187, 192, 13 . 14, O, IS, 14, 13 

,12, 18?, 176. 153, 8. 6, 0,1332 

4066 DATA 9,8,6,9,9,8.136,153,179,137, 

294,13,14,15,15,14,2877 

4078 DATA 13,12,137,178,153,8,0,6,0,6, 

0,8,8,8,136,153,601 

4080 DATA 170,187,12,13,14,15,15,14,13 

,0,187,170,153,0,9,0,1292 

4098 DATA 9,6.0,8,0,0,136,153,170,187, 

12,13,14,15,15.14,795 

4160 DATA 13,12,187,170,153,0,6,0,0,0, 

9.0,0,9,136,153,631 

4110 DATA 170,187,9,13,14,0,255.238,22 

1,0,187,176.153,6,8,8,6540 

4120 DATA 0,0,8,0,0,0,136,153,170,167, 

12,221,238,15,15,14,6233 

4136 DATA 13,12,187,176,153,6,0,0,0,0, 

6,6,6,0,136,153,661 

4146 DATA 170,187,9,13,14,0,15,14,13,0 

,187,170,153,0,0.8,1226 

4150 DATA 8.8,9,6.8,9,136,153,170.187. 

12,221,238,255.255.238,6807 

4160 DATA 221,12,187,176,153,6.0,6,6,6 

,8,6,8,6,136,153,699 

4178 DATA 176,187,8,13,14,15,15,14,13. 

9,187,178,153,6,6,6,1346 

4180 DATA 9.8,0.0,0,0,136,153.170,187, 

264,13,14,15,15,14,2997 

4196 DATA 13,204,187,178,153.8,6,9,8.8 

,8,0,0,0.136.153,1105 

4200 DATA 170,187,204,221,238,255.255, 

238,221,264,187,178,153,6.6,6,2764 

4216 DATA 9,8,169,6,133,222,169.86,133 

,223.162,11,32,138,54,162,9628 

4228 DATA 5,189,96,52,133,226,189,182, 

52, 133 . 221 , 189, 168, 52 . 133 , 222,3399 

4230 DATA 185,114,52,133,223.138,72,28 

1,4,48,4,162,15,16,2,162.4935 

4249 DATA 39,160,5,177,228,145,222,136 

,16,249,165.220,24,165,6,133,1023 

4256 DATA 220,144.2.239.221,165,222,24 

, 105, 46, 133 ,222,144.2.230. 223,3915 

4269 DATA 202.16,222,104,170,202,16,18 
5,96,71.55,39,23,7,103,57.4731 

4270 DAtA 58,59.60,61,61.88,14,26,166, 
23,29,89,80,80,80,87,3176 

4286 DATA 87,32,74,49,32,55,46,169,201 

,141,2,212.169,52,141,3,7844 

4298 DATA 212,169,210,141,0,2,169.53,1 

41,1,2,169,208,141,24,268,9348 

4386 DATA 169,146,141,25,208,169,5,141 

,8,218,169,170,141,1,210,141,1313 

4310 DATA 3,210,169,166,141,5,210,141, 

7,218,169,0,141,219,0,169,862 

4320 DATA 39,141,220,0,169,1,141,195,5 

4,32,152,54.169,6,141,195,9257 

4336 DATA 54,96,112,112,246,79,6,86,15 

,15,15,15,15,15,15,15.9174 

4346 DATA 15,15,15,15,15,15,15.15,15,1 

5,15,15,15,15,15,15.6386 

4350 DATA 15,15,15,15,15,15,15,15.15,1 

5,15,15,15,15,15,15,6396 

4360 DATA 15.15,15,15,15,15,15,15,15,1 

5,15,15,15,15,15,15,6406 

4370 DATA 15,15.15,15,112,66,36,53,112 

,6,112,6,112,6,112,6,1798 

4386 DATA 112,6,112,2,65,261,52,6,8,8, 

0,6,6.6,6.6,6743 

4390 DATA 6,9,0,6,9,0,40.41,39,40,0,51 

,35,47,50.37,8816 

4466 DATA 51,0,8.0,0,6,6,8,6,8.8,6.0,8 

,0,0,4451 

4416 DATA 8.8.97,118,97,198,111,163,6, 

8,8,16,17,16,16,16,9888 

4426 DATA 9,6,8,9,6,9,97,110.97,198.11 

1,163,6,0,6,16,645 

4436 DATA 16,21,16,16,8,6,8,6,0,0,97,1 

10,97,108,111,163,3673 

4446 DATA 8,0.0,16,16,18,21,16,6,6.8.0 

.6.0,97,110,8132 

4450 DAtA 97,108,111,103,0,0,8,16.16,1 

7,16.16,8,6.0,0,6318 

4460 DATA 0,6,97,116,97,198,111,103,6. 

0,6,16,16.16,21,16,9126 

4476 DATA 9,9,8,9,8,0,6,6,8,6,9.6.48,1 

14,111,163.3 

4486 DATA 114,97,169,169,161,166,6,34, 
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121,0.48.37,117,108,0,44,34*6 

4498 bfiTfi 97,i2i,0,e,e,e.e,e.e,9,0,72, 

138,72,162.224,4509 

4508 DflTft 159,65,141,10.212,142,26,208 

,141.27,288,162,66,189,0,120,137 

4510 DflTfl 141.16,212,141.4,208,142,18, 

208,222.0,120,138,74,144,3,8847 

4520 Dfitfl 222,8,120,202,208,231,142,10 

,212,142,25,208,169,1,141,27,278 

4530 DflTfl 208,162,189,138,10,141,18,21 

2,141,23,208,24.105,64.141,22,7406 

4540 DftTfl 208.169,60,128,141,4,208,142 

,18,288,222.60,120.138,74.144,1417 

4550 DftTfl 3,222.60,120,202,208,220,142 

,4,208,286.219,0,16,49,174,1289 

4560 DflTft 220,6,224.40,208,2,162,0,189 

,98,54.141,0,216.24,185,7745 

4578 DftTA 1.141,2,210,74,141.4,210,24, 

105,1,141,6.218,232,142.362 

4580 DflTfl 226,6,169,7,141.219,6,104,17 

0,184,64,72,116,74,111.72,7607 

4596 DflTfi 116,74,111,64.126,56,127.64. 

126,66,127,72,118,74.111,72,7262 

4600 DfiTft 110,74,111,64,126,66,127,64, 

126,66,127,64,74,84,94,62,6373 

4616 DfiTfl 72,82,92,160,0,152,145,222,2 

00,208,251,230,223,282,298,246,1649 

4620 DfiTfi 96,169,0.133,222,169,125.133 

.223,162,3.32,138,54,162,8,8673 

4638 DATA 173,18,210,172.195.54,208.8, 

201,47,144,244.201,207.176,240,7742 

4640 DfiTfl 157,8,120,169,1,157,0.123,23 

2.288,229,96,0,169,200,133,3097 

4650 DfiTfi 211,141,10,212,173,10,210.41 

,112,141,144.38,160,64.162.3.8656 

4660 DfiTfi 173.10,210,157,4,298,157.18, 

208.202.16,244.141.12,208,141.2995 

4678 Dfitfl 17,208,41,7,170,173,19.210,4 

1,239,157,0.218,136,208.222.4684 

4680 DfiTfi 198,211,206.265,169,48,141,1 

44,38.169,8,141,12,206,96,165,888 

4690 DfiTfi 212,240,46,169,82,133,213,16 

9,53.133,214,162,0,160.9,177,1424 

4709 DATA 213,217,231,41,144,24,208,5, 

200,192,5,298.242,165,213,24,3870 

4718 DfiTA 195,20,133,213.144,2.230,214 

.232,224.5,208,224,96,76,59,3379 

4720 DATA 55.230,212,96,134,217,169,13 

0,133.213,169,53,133,214,169,4,3596 

4730 DATA 56,229,217,170,240,36.165,21 

3,24,105,20,133,215.165.214,185,3927 

4748 DATA 8,133,216,160,19,177,213,145 

,215,136,16,249,165,213,56,233,6256 

4750 DATA 20,133,213,176,2,198.214,202 

,16,218,169,73,133,213,169,53,3844 

4760 DATA 133,214,165,217.10,18,72.24, 

101,213,133,213,144,2,230,214,3322 

4778 DATA 104,10,19,24,101,213.133,213 

,144,2,230,214,160,7,185,82,2117 

4780 DATA 56,179,189,45,56.145,213.136 

,16,244,165,213,24,195,9,133,652 

4796 DATA 215,165,214.105,9,133,216,16 

8,4,185.231,41,145,215,136,16,2097 

4808 DATA 248,168,9,32,27,56,169,255,1 

45,213,32,27,56,165,82,56,8745 

4818 DATA 179,169,45,56,145,213,173,16 

,208,248,67,173,8,211,41,15,9953 

4828 DATA 291,7,288,9,200,192,8,48,218 

, 168, 0, 16, 214, 281, 11, 208, 1130 

4838 DATA 7,136,16,207,160,7,16,263,28 

1,13,208,12,185,82,56,56,8223 

4848 DATA 233,1,16,28,169,36,16,16,281 

,14,288,183,185,82,56,24,7714 

4858 DATA 185,1,261,37,48,2,169,8,153, 

82,56,76,186,55,173,16.6907 

4868 DATA 208,240,251,96,32,55,40,32,6 

1.48,32,55,48,32,61,40,2195 

4678 DfiTfi 32,55,40,76,61.40,0,97,98,99 

,100,101,102,103,104,195.6949 

4880 DATA 106,107.108,199,119,111,112, 

113,114,115,116,117,118,119,120,121,65 

6 

4898 DATA 122,39,81,82.83.84.35,86,87. 

88,89.8.9,0,8,0,537 

4909 DATA 0.0.8,169.6.141.0,212,141,14 
,210,141,14,212,141,8,8922 

4910 DATA 216.159,3,141.15,218.169,169 
,141,2.212,169,56,141.3,212.1689 

4920 DATA 169,120,141,9,212,169,12,141 
.23,203,169,0,141,24.208,165,1213 
4930 DATA 35.141,0,212,169.14,141,1.21 
8.141,3,210,162,1,142,0,6122 



4940 DATA 210,232.142,2,210.162,127,17 

3,19.210,157,9,120.202,16,247,2840 

4950 DATA 48,243,66.231,56,2,56,231,56 

.2,66.231,56.2,66,231,8672 

4960 DfiTfi 56,2.66,231.56,2,66,231,56,2 

,66,231.56,2,66,231,3208 

4970 DATA 55,2,66.231,56,2.66.231,56,2 

.66,231.56,2,66,231,8218 

4930 DATA 56.2,66,231,56.2,56.231.56.2 

,66,231,56,65,165,56,7855 

4990 DATA 8.1,2,3,4.5,6,7.8.9.10.11.12 

,13,14,15,6350 

5800 DATA 8.1,2,3,4.5,6.7,8,9,19,11,12 

,13,14,15,6368 

5018 DfiTA 8,1,2,3,4,5,6,7.8,9,10.11,12 

,13,14,15.6370 

5823 DATA 8.9,19,11.12,13.14,15.6.1,2, 

3,4,5,6,7,5868 

5936 DATA 8.9.19.11,12,13,14.15.0,1,2. 

3.4.5.6,7,5878 

5840 DATA 8,9,10,11,12,13,14,15,0,1,2, 

5050 DATA 15,255,255,255,255,80,255,25 

5, 255, 255 . 255 . 245 . 255 . 255 . 255, 255, 8328 

5660 DATA 255,245.255,255,255.255.255, 

245,233,238.238,236,238,230.238,233.76 

28 

5070 DfiTA 233,238,238,230,238,238,238, 

238,238,230,236,238.238,238.233,238,71 

98 

5080 DATfi 221,221,221,221,221,215,221, 

221,221,221,221,215,221,221,112.13,65 

5090 DfiTA 221,215.221,221,112,13,221,2 

15,204,204,128,0,0,6,204,204.2801 

5100 DfiTfi 128,0.0,0,204.294,128,9,0,0, 

204,294.128,0.0,9,4724 

5119 DATfi 187,137.187,187,137.144,187, 
187,187. 187, 187 . 185, 187, 137 . 187, 187, 26 
8 

5120 DfiTA 187,185.187,187,187,187,167. 
185 , 170 , 178 , 178 . 170, 170 , 170, 170, 170, 38 
32 

5130 DATA 179,178,170,170,170,170,170, 
170,170,170,18,178,178,178,178,170,649 



5140 DATA 6,0,0,9,153.155,6,8,8,9,153. 

155,0,9,9,9,648 

5150 DATA 153.155,9,8,0,9,153,155,136. 

136,192,8,136,146,136.136,714 

5168 DATfi 192.8,136,148,136,136.136,13 

6,136,140,136,136,136,136,136,140,3576 

5170 DATA 119,119,119,119,119.126,119, 

119,119,119,119.126,119.119,119,119.14 

88 

5180 DATA 119,126,119,119,119,119,119, 

126,182.182,182,102,182,111,102,102.98 

60 

5190 DATA 102.102,102,111,182,102,102, 

102,102,111,6,102.102,102,102,240.348 

5200 DfiTA 255,255,255.255,255,246.255. 

255 , 255 , 255 . 255 , 246 . 255 , 255, 255, 255, 97 

18 

5210 DfiTA 255,246,255,255,255,255,255, 

246.238,238,238,238,238.231,238,238,80 

02 

5220 DATA 238,238,233.231,238.238,238, 

233,238,231,238,238,238.238,238,231,73 

78 

5230 DATA 221,221,221,221,221,216,221. 

221,221,221,221,216,221.128,221,216,38 

14 

5240 DATA 13,216,0,6,221,216,0,0,0,0,2 

04,261,9,8,8,0,2742 

5258 DATA 284,201,0.8,8,8,284,261,0.0, 

8,6,204,201,0.0,4358 

5266 DATA 8 . 6, 187. 186,0, 6,0,0,187,186, 

0,8,0,0.187,186,5889 

5278 DATA 0.0,0,0,187,186,0,0.8,9,170, 

171,0.0,9,0,1243 

5280 DATA 170,171,0,0,0,0.170,171,6,0. 

0,0.170,171,0,0,2954 

5290 DATA 8,8,153.156,0,0,0.0,153,156, 

9,0,0,0,153,156,4101 

5300 DATfi 0,0,0,0,153,156,0,0.0,9,136, 

141,0,0,0,0.189 

5310 DATA 136,141,0,0,0.0,136,141,0,0, 

8,0,136,141.0,0,1559 

5320 DATA 0,8,119,126,0,9,9,9,119.126, 

0,8,0,0,119,126,2313 

5330 DfiTA 0,8,0,0,119,126,0,0.0,6,102, 

111,0,0,0.0,9135 

5340 DATA 102,111,0,0,9,6,102,111,6,0, 

FEBRUARY A.N.A.L.O.Q. Computing 



6, 0,102, ill. e^e. 146 

5350 DATA 15,255,255,255,255,96,15,255 

,255,255,255,96,255,255,255,255,5248 

5369 DflTft 255,246,255,255,255,255,255, 

246,238,238,238,238,238,231,238,238,81 

52 

5378 OATfi 238,238,238,231,238,238,238, 

238,238,231,238,238,238,238,238,231.75 

28 

5380 DflTfi 221,221.221,221.221,216,221, 

221, 221. 221, 221, 2i6, 221. 221, 128, 13, 623 

5390 Dfltft 221.216.221,221,128,13,221,2 

16,204,284,144,12,284,201,284,204,8977 

5460 DATA 144,12.204,201.204,204,144,1 

2,204.201.294,204,144.12,204,201,7186 

5410 CfiTA 187.187,168,11,187,186.137.1 

87,160.11,187,186,187,187,160,11.4815 

5420 DflTfl 187,186,187,187.160,11,187,1 

86,179,170.170,170,170.171,176.170,796 

5 

5430 tflTfl 170,170,178,171,170,170,170, 

179,170,171.170,170,170,170,170,171,85 

80 

5440 DflTft 153,153,192,9.153,156,153,15 

3,192.9,153.156.153,153,192,9.3035 

5450 DflTft 153,156,153,153.192,9,153,15 

6,136,136.268,6.136,141,136.136,3245 

5459 bOTft 298,8,136.141,135,136.208,8, 

136,141.136.135,208,8,136,141.2546 

5470 Dfltfi li9, 119, 224, 7, 119, 126, 119, 11 

9.224,7,119,126,119,119,224,7,1255 

5480 DftTft 119, 126, li9, 119, 224, 7, 119, 12 

6,102,102,240,6,102,111.102,102,379 

5496 DATA 248.6.102.111.102,102,240,6, 

102.111,182,102,240,6.1(32,111,226 

5500 DATA 255,255,255,255,255,96.255,2 

55, 255, 255, 255, 96, 255, 255, 255, 255,, ?318 

5510 DATA 255,246,255,255,255,255,255, 

246,238.238,238,238,238,231,238,238,83 

02 

5520 DATA 238,238,238,231,238,238,238, 

238,238,231,238,238,238,238,238,231.75 

73 

5530 DATA 221,221,221,221,221,216,221, 

221,221,221.221,216,221,221,128,13,773 

5546 DATA 221,216,221,221,126,15.221,2 

16.204,294.144,12,204,201,204,204.9127 



5550 DATA 144.12,204.201,264,284,144,1 

2,204,201,204,204,144,12,204,281,7336 

5559 DATA 187,187,166,11,187,186,187,1 

87,169,11,137,186,187,187,160,11,4955 

5578 DATA 187,186,187,187,166,11,187,1 

86,178,170,178,176,178,176.170,170,818 

5 

5580 DATA 179,179,171,0,179,178.179,17 

0,171,9,170,170,176,170.170,176,6428 

5590 DATA 153,153,192,9.153,156,153,15 

3,192,9,153,156,153,153,192,9,3185 

5600 DATA 153,156,153,153,192,9,153,15 

6,136,136,208,8,136.141,136,136,3395 

5618 DATA 208,8,136,141,136,136,208.8, 

136,141,136,136,208,3,136,141,2696 

5628 DATA 119,119,224,7,119,126,119,11 

9,224,7,119,126,119,119,224,7,1485 

5630 DATA 119,126,119,119,224,7,119,12 

6,102,102,240,6,192,111.182,102,52^ 

5640 DATA 240,6,192,111,182,182,249.6, 

102,111,102,192,249,6,102,111,376 

5650 DATA 8,136.136,136,136,136,153,15 

3,153,153,153,153,170,170,170,176,6959 

5669 DATA 178,170,187,167.187,187,187, 
187,192,12,192,0,192,12,208,288,5413 

5670 DATA 221,13,208,263,224,224,238,1 
4,224,224,248,15,255,15,248,248,9656 
5688 DATA 240,240,255,15,248,248,224,2 
24,236,14,224,224,288,288,221,13,9798 
5698 DATA 288,208,192,192,192,8,192,12 
, 187, 187, 187, 187, 187, 187, 170, 170, 8231 
5788 DATA 178,170,178,178,153,153,153, 
153,153,153,8,136,136,136,136,136,3893 
5710 DATA 136,136,136,136,8,8,153,153, 
153,153,144,8,170,178,178,178,3716 
5729 DATA 168,8,187,187,187,187,176,8, 
192,8,192,12,192,8,288,221,3614 

5738 DATA 288,268,288,0,224,238,224,22 

4,224,8,248,15,249,15,248,8,4652 

5748 DATA 248,255,249,248,248,8,224,23 

8,224,224,224,8,288,221,288,208.1888 

5758 DATA 288,8,192,9,192,192,192,0,18 
7,187,187.187,176,8,178,178,5482 

5759 DATA 178,178,168,8,153,153,153.15 
3,144,6,136,136,136,136,9,8,8824 

5779 DATA 226.2,227,2,253,31,8,9,9.8,8 
,8,8,9,8,9,8148 ^3 



FOR OUR DISK 
SUBSCRIBERS 

The following programs from this 
issue are on disk: 



TiiE A.N'.A.L.O 


.G. #69 


DISKETTE CONTAINS 20 




MAGAZINE 


FILES. THEl 


ARE LISTED BELOW. 




SIDE 1: 












FILENAME 


EXT 


LANG. 


LOAD 


COMMENTS 




TRIAL 


OBJ 


ML 


(#3) 


TRIAL BY FIRE 




VNTEDIT 


BAS 


BASIC 


LOAD 


VNT EDITOR 




COLORSET 


BAS 


BASIC 


LOAD 


COLOR SET 




STARRIDE 


OBJ 


ML 


(#3) 


STAR RIDER 




GDWl 


LST 


BASIC 


ENTER 


GAME DESIGN WRKSHP 


PI 


GDW2 


LST 


BASIC 


ENTER 


GAME DESIGN WRKSHP 


P2 


GDW3 


LST 


BASIC 


ENTER 


GAME DESIGN WRKSHP 


P3 


GDW4 


LST 


BASIC 


ENTER 


GAME DESIGN WRKSHP 


P4 


GDW5 


LST 


BASIC 


ENTER 


GAME DESIGN WRKSHP 


P5 


MLEDITOR 


BAS 


BASIC 


LOAD 


M/L EDITOR 




EDITOR I I 


LST 


BASIC 


ENTER 


BASIC EDITOR II 




SIDE 2: 












FILENAME 


EXT 


LANG . 


LOAD 


COMMENTS 




TRIAL 


ACT 


ACTION 


(#1) 


TRIAL BY FIRE SOURCE 


PROG 


SRC 


ASSEMBLY 


STAR RIDER SOURCE, 


PI 


PR0G2 


SRC 


ASSEMBLY 


STAR RIDER SOURCE, 


P2 


CHSET 


SRC 


ASSEMBLY 


STAR RIDER SOURCE, 


P3 


TERRAIN 


SRC 


ASSEMBLY 


STAR RIDER SOURCE, 


P4 


LETTERS 


SRC 


ASSEMBLY 


STAR RIDER SOURCE, 


P5 


aOOTCAMP 


BAS 


BASIC 


LOAD 


BOOT CAMP, LISTING 


1 


PARSER 


OBJ 






BOOT CAMP DATA FILE 


VOCAB 


DAT 






BOOT CAMP DATA FILE 


TO LOAD YOUR 


A.N.A.L. 


O.G. DISK 





1) INSERT BASIC CARTRIDGE (NOT REQUIRED FOR XL 
OR XE COMPUTERS) 



2) TURN ON DISK DRIVE AND MONITOR 

3) INSERT DISK IN DRIVE 

4) TURN ON COMPUTER (XL AND XE OWNERS DO NOT 
HOLD DOWN OPTION KEY ! ) 

WARNING: BEFORE YOU RUN A PROGRAM, READ THE 

APPROPRIATE ARTICLE IN THE MAGAZINE. 

NOTE: ONLY PROGRAMS WITH THE ".BAS" OR ".OBJ" 
EXTENTION MAY BE RUN FROM THE MENU. 
OTHER PROGRAMS SHOULD BE LOADED AS 
INSTRUCTED IN THE LOADING NOTES AND MAY 
REQUIRE ADDITIONAL SOFTWARE AS LISTED 
BELOW. HOWEVER, YOU SHOULD NOT ASSUME 
THAT EVERY FILE WITH THE PROPER FILE 
EXTENSION WILL HUN FROM THE MENU. YOU 
MAY HAVE TO MOVE CERTAIN PROGRAiMS TO A 
DIFFERENT DISK TO OBTAIN CORRECT RESULTS. 

EXT DESCRIPTION 



THE OSS MAC/6 5 ASSEMBLER 

THE ATARI MACRO ASSEMBLER 

THE ATARI ASSEMBLER/EDITOR 

THE OSS ACTION I CARTRIDGE 

THE ATARI LOGO CARTRIDGE 

THE SYNAPSE SYN ASSEMBLER 
ST BASIC 



. M65 


REQUIRES 


■ AMA 


REQUIRES 


.ASH 


REQUIRES 


.ACT 


REQUIRES 


.LGO 


REQUIRES 


.SYN 


REQUIRES 


.STB 


REQUIRES 


LOAD 1 


NG NOTES 



LOAD BASIC PROGRAM; 
ENTER BASIC PROGRAM: 
LOAD MAC/6 5 PROGRAM: 
ENTER ASM/ED PROGRAf,! 
LOAD LOCO PROGRAM: 
LO,\D SYN/AS PROGRAM: 



LOAD "D;FILENAME.EXT" 
ENTER "D:FILENAME.EXT" 
LOAD DD: FILENAME. EXT 
ENTER »D: FILENAME. EXT 
LOAD "D:FILENAME.EXT" 
LOAD "D:FILENAME.EXT" 



SEE ACTION! MANUAL. 

SEE ATARI MACRO ASSEMBLER MANUAL. 

HAY ALSO BE LOADED FROM DOS USING THE "L" 

OPTION OF THE DOS MENU. 

THIS FILE SHOULD BE TRANSFERRED TO ANOTHER 

DISK AND RENAMED "AUTORUN. SYS" . 

SEE ST BASIC MANUAL. 
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When you want to talk Atari 



XL/XE HARDWARE 




CMO SPECIAL 

Atari 800XL $69^® 

65XE 109.00 

130XE 149.00 

INTERFACES 

ICD 

P:R Connection 59.99 

Printer Connection 34.99 

Supra 

1150 39.99 

1151 (1200 XL) 40.99 

Xetec 

Graphix Interface 38.99 

Atari 

850 Interface 109.00 

XL/XE ENHANCEMENTS 

Axlon 32K Mem. Board (400/800) .19.99 

Atari 80 Column Card 74.99 

ICD 

BBS Express (ST) 52.99 

Sparta DOS Construction Set 28.99 

US Doubler/Sparta DOS 47.99 

Real Time Clock 48.99 

Rambo XL 28.99 

US Doubler 28.99 

MODEMS 

Atari 

SX212 300/1200 (ST) 79.99 

XMM301 46.99 

Anchor 

VM520 300/1200 ST Dir. Con. . . .109.00 

Avatex 

1200 HC 89.99 

2400 169.00 

Supra 

2400 Baud XL/XE or ST 159.00 

2400 Baud (no software) 139.00 

MONITORS 

IVIagnavox 

CM 8505 14" Composite/RGB/TTL . . .189.00 



ST HARDWARE 



Call For Current Information 
On The Entire ST Line! 



$329 



ATARI SM1224 
RGB/Color Monitor 

520ST FM RGB/Color System. . .829.00 
SM124 Monochrome Monitor. . . .179.00 



Jk AlMKl 




jsaso^ 




CMO PACKAGE EXCLUSIVE 
Atari 800XL & XF551 Drive 

w/5 Undocumented ROMS Asteroids, Defender, 
Missile Command, QIX, Star Raiders COCO 



DRIVES 



Atari 

ST 314 DS/DD 219.00 

XF551 Drive (XL/XE) 179.00 

SHD204 20 Meg Hard Drive Call 

I.B. 

51/4" 40 Track (ST) 219.00 

51/4" 80 Track (ST) 279.00 

LCD. 

FA«ST 20 Meg 629.00 

FA»ST 30 Meg 849.00 

FA»ST Dual Hard Drives Call 

Indus 

GTS 100 31/2" DS/DD (ST) 189.00 

GT 1000 51/4" DS/DD (ST) 209.00 

GT Drive (XL/XE) 179.00 

Supra 

FD-10 10MB Removable Floppy. 859.00 

30 Meg Hard Drive (ST) 649.00 

CALL FOR DISKETTE SPECIAL 



PRINTERS 




Atari 1020 Printer ^^^„« 
40 Col. Color $19®® 

Atari 

1027 Letter Quality XL/XE 69.99 

XDM121 LQ (XL/XE) 189.00 

XM-M801 XL/XE Dot Matrix . . . .189.00 
Brother 

M-1109 100 cps Dot Matrix 169.00 

M-1509 180 cps Dot Matrix 359.00 

HR-20 22 cps Daisywheel 349.00 

Citizen 

120D 120 cps Dot Matrix 159.00 

180D 180 cps Dot Matrix 179.00 

Premier-35 35 cps Daisywheel . .549.00 
Epson 

LX-800 150 cps, 80 col 189.00 

FX-850 264 cps, 80 col Call 

LQ-500 180 cps, 24-wire Call 

LQ-850 330 cps, 80 col Call 

NEC 

P2200 pinwriter 24-wire 379.00 

Okidata 

Okimate 20 color printer 129.00 

ML-182 +120 cps, 80 column . .229.00 

ML-390 +270 cps, 24-Wire 539.00 

Panasonic 

KX-P1080i 144 cps, 80 col 169.00 

KX-P1091i 194 cps, 80 col 199.00 

Star Micronics 

NX-1000 140 cps, 80 column . . .179.00 

Toshiba 

P321-SL 216 cps, 24-wire 499.00 

Allsop Disk Holders 

Disk File 60-5y4" 9.99 

Disk File 30-31/2" 9.99 

Curtis 

Emerald 39.99 

Safe Strip 19.99 

Universal Printer Stand 14.99 

Tool Kit 22.99 



ACCESSORIES 





U 




Your Source for Hardware, Software & Peripherals 



you want to talk to us. 



SPECIALS XL/XE 



#AAB822P 822 Printer Paper $2.49 

#AA14746 T.V. Switch Box 2.49 

#AA4010 Tic-Tac-Toe 4.99 

#AA401 1 Star Raiders 3,99 

#AA4012 Missile Command 3.99 

#AA4013 Asteroids 4.99 

#AA4022 Pac Man 4.99 

#AA4025 Defender 4.99 

#AA4027 QIX 4.99 

#AA4102 Kingdom (Cass.) 1.99 

#AA4112 States & Capitals (Cass.). 1.99 

#AA4121 Energy Czar 1.99 

#AA4123 Scram (Cass.) 1.99 

#AA4126 Speed Reading 2.99 

#AA4129 Juggle's Rainbow 1.99 

#AA415 File Manager 8.99 

#AA4204 1020 Color Pens 1.99 

#AA5047 Timewise (D) 3.99 

#AA5049 Visicalc (D) 24.99 

#AA5050 Mickey Outdoors 5.99 

#AA5081 Music Painter (D) 9.99 

#AA6006 Counseling Procedure. . . .1.99 
#AA7102 Arcade Champ (No J. Stk)6.99 

#AA8030 E.T. Phone Home 3.99 

#AA8048 Millipede 4.99 

Access 

Leaderboard Golf 22.99 

Accolade 

Hardball 21.99 

Activision 

Hacker ll/Music Studio (ea.) 28.99 

Antic 

Flash 21.99 

Avant Garde 

PC Ditto 59.99 

Batteries Included 

Degas Elite 37.99 



ST SOFTWARE 




Cygnus 
Starfleet I 



$3299 



CLOSEOUTS XL/XE 



ROM CARTS (XL/XE) 
S299 ea or 5 for siS^s 




ST SOFTWARE 



Loose/Undocumented 

Choose from: Space Invaders, Star 
Raiders, Missile Command, Asteroids, 
Pac Man, Galaxian, Defender, QIX, 
Super Breakout, E.T., Eastern Front, 
Robotron. 
Rocklyn 

Gorf 2.99 

Anti-Sub (Disk) 2.99 

Journey to Planet 2.99 

Atari Program Exchange 

10 Different Cassettes For $11.99 

Data East 

Speed Buggy 25.99 

Epyx 

Auto Duel 31.99 

Dive Bomber 29.99 

Firebird 

Jewels of Darkness 19.99 

The Sentry/Tracker (ea.) 12.99 

FTL 

Dungeonmaster 29.99 

Metacomco 

ISO Pascal 59.99 

Michtron 

Leatherneck 29.99 

Microprose 

Gunship 28.99 

F-15 Strike/Silent Service (ea.). . .24.99 
Miles Software 

ST Wars 24.99 

Mindscape 

High Roller 31.99 

Mark Williams 

C 119.00 

Paradox 

Wanderer (3D) 24.99 



SPECIALS XL/XE 



Access 

Leaderboard Golf 13.99 

Accolade 

Fight Night 19.99 

Atari 

Atariwriter Plus 35.99 

Broderbund 

Printshop 26.99 

Datasoft 

Alternate Reality (City) 23.99 

221 Baker St 20.99 

Electronic Arts 

Pinball Construction 15.99 

Firebird 

Silicon Dreams 1 5.99 

Jewels of Darkness 15.99 

Microprose 

Top Gunner 14.99 

F-15 Eagle Strike 22.99 

Origin Systems 

Ultima 4 36.99 

Strategic Simulations 

Gemstone Warrior 1 1 .99 

Sublogic 

Flight Simulator 34.99 

Progressive Computer 

Graphic Artist 1.5 109.00 

Psygnosis 

Barbarian 25.99 

Soft Logik Corp. 

Publishing Partner 54.99 

Strategic Simulation 

Questron II 35.99 

Timeworks 

Swiftcalc/Wordwriter (ea.) 43.99 

Desktop Publisher 79.99 

Unison World 

Printmaster Plus 25.99 



ST SOFTWARE 




Word Perfect 



$159 



In U.S.A. 



MMC 



Call: 1-800-233-8950 

In Canada call: 1-800-233-8949 All Other Areas call: 717-327-9575 Fax: 717-327-1217 

Educational, Governmental and Corporate Organizations call toll-free 1-800-221-4283 

CMO, 101 Reighard Ave., Dept. B7, Williamsport, PA 17701 



OVER 350.000 SATISFIED CUSTOMERS • ALL MAJOR CREDIT CARDS ACCEPTED • CREDIT CARDS ARE NOT CHARGED UNTIL WE SHIP 



POLICY: Add 3% (minimum $7.00) shipping and handling. Larger shipments may require additional charges. Personal and company checl<s require 3 weel<s to 
clear. For faster delivery, use your credit card or send cashier's check or bank money order. Credit cards are not charged until we ship. Pennsylvania and 
Maryland residents add appropriate sales tax. All prices are U.S.A. prices and are subject to change, and all items are subject to availability. Defective softv^are 
will be replaced with the same item only. Hardware will be replaced or repaired at our discretion within the terms and limits of the manufacturer's warranty. We 
cannot guarantee compatibility. All sales are final and returned shipments are subject to a restocking fee. We are not responsible for typographic or photographic 
errors. 
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